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INFORMATIE, 

De 6502 Kenner is een uitgave van de KIM 
Gebruikersclub Nederland. Deze vereniging 
is volledig onaf hankeli j k , is statutair 
opgericht en ingeschreven bij de Kamer van 
Koophandel en Fabrieken voor Hollands 
Noorderkwartier te Alkmaar, onder nummer 
634305. 

Het doel van de vereniging is het bevorde- 
ren van de kennisu i t wi s se 1 ing tussen 
gebruikers van computers die zijn opge- 
bouwd rond een microprocessor uit de 6500- 
familie. Voorbeelden hiervan zijn onder 
andere: Elektuur EC-65, Commodore 64, 
Apple ][, Elektuur Junior, Atari 600 en 
800- 

De eerder genoemde kennisuit wisseling komt 
onder andere tot stand door 6 maal per 
jaar de 6502 Kenner te publiceren, door de 
organisatie van landelijke bi j eenkoms t en 
voor de leden, het inst andhouden van een 
sof t warebibliotheek op cassette, floppy 
disk en papier en het beschikbaar stellen 
van een Bulletin Board. 

Landelijke bijeenkomsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maanden januari, 
maart, mei, September en november. De 
exacte plaats en datum worden steeds in de 
6502 Kenner bekend gemaakt in de rubriek 
Uitnodiging . 

Bulletin Board: 

Voor het uitwisselen van mededelingen, het 
stellen en beantwoorden van vragen en de 
verspreiding van software wordt er door de 
vereniging een Bulletin Board beschikbaar 
gesteld. Dit Bulletin Board valt onder de 
verant woordeli jkheid van een van de 
bestuursleden en wordt bediend door een 
zgn. Sysop. 

Software Bibliotheek: 

Voor het beheer van de Software Biblio- 
theek streeft het bestuur er naar zgn. 
Software Coordinators te benoemen. Hierbij 
wordt gedacht aan een drietal coBrdina- 
tors; eai voor EC-65(K) en Junior met OHIO 
D0S-65D, een voor DOS-65 en een voor 
diverse andere systemen zoals onder andere 
Elektuur Junior. 

Het Bestuur: 

Het bestuur van de vereniging wordt ge- 
vormd door een dagelijks bestuur bestaande 
uit een voorzitter, een secretaris en een 



penningmeester en een viertal gewone leden. 

Voorzitter : 
Rinus Vleesch Dubois 
Emiliano Zapataplein 2 
2033 CB HAARLEM 
Telefoon 023-330993 

Secretaris : 
Gert Klein 
Diedenweg 119 
6706 CM WAGENINGEN 
Telefoon 08370-23646 

Penningmeester : 
John van Sprang 
Tulp 71 

2925 EW KRIMPEN A/D IJSSEL 
Leden: 

Adri Hankel (Bulletin Board) 

Willem Kloosstraat 32 
7606 BB ALMELO 
Telefoon 05A90-51151 

Erwin Visschedijk 
Dillelaan 11 
7641 CX WIERDEN 
Telefoon: 05496-76764 

Gert van Opbroek (Redactie 6502 Kenner) 

Bateweg 60 

2481 AN WOUBRUGGE 

Telefoon 0^ "^29-8636 

Nico de Vries 
Mari Andriessenrade 49 
2907 MA CAPELLE A/D IJSSEL 
Telefoon 010-4517154 

Ereleden: 

Naast het bestuur zijn er een aantal ere- 
leden, die zich in het verleden bijzonder 
verdiensteli jk voor de club hebben 
gemaakt : 

Erevoorzit ter : 

Siep de Vries 

Ereleden: 

Mevr. H. de Vries van der Winden 
Anton Mueller 
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De 6502 K^xsiirl 

De 6502 Kenner wordt bij 
verschijnen gratis toege- 
zonden aan alle leden van 
de KIM Gebruikersclub 
Nederland. De kopij voor 
bet blad dient bij voor- 
keur van de leden afkom- 
stig te zijn. Alle kopij 
wordt door de redactie op 
bruikbaarbeid en publica- 
tiewaarde beoordeeld. Deze 
twee criteria, in samen- 
bang met de actualiteit, 
bepalen of en zo ja 
wanneer bet stuk gepubli- 
ceerd wordt. De redactie 
streeft er naar de kopij 
zoveel mogelijk in zijn 
oor spronkeli jke vorm te 
plaatsen, Neder lands talige 
kopij wordt daarom in 
principe niet naar een 
andere taal vertaald. De 
redactie streeft er naar 
een Neder landstalig blad 
te maken doch bet staat de 
auteur vrij een artikel 
geheel pf g%dMfeLlXMlX3\fi in 
een andere taal scbrij- 
ven. 

Helaas kan de redactie, 
nocb bet bestuur, enige 
aansprakelijkbeid aanvaar- 
den voor de toepassing(en) 
van de gepubllceerde 
kopij . 

Verschijningsdata: 

De 6502 l^mmm' iff rschijnt 
op <fe derde ^aterdag vati 
de maanden februari, 
april, juni, augustus, 
oktober m ^^^iiii&Kiw ■ 

Redactie* 

De redactie wordt momen- 
teel gevormd door: 
Gert van Opbroek 

Correspondent en : 
Jacques Banser (Sysop) 
Bram de Bruine 
Antoine Megens 
Gerard Reitsma 
Rinus fieesGh Dubois 

Redactieadres : 
Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 
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Hat is niet onmogelijk, dat u de 6502 
l©jM<Bir lets later krijgt dan gebrulkelijk. 
Bit koiat dotJrSat Ik tilet op tijd alle 
kopij voor het blad bij elkaar had. Nor- 
maal gesproken probeer ik altijd het blad 
in de week na de eerste zaterdag van de 
maand bij de drukker te krijgen maar nu is 
dat niet gelukt. Mocht tiet blad dus niet 
In de week na de derde zaterdag bij u in 
de bus liggen, dan vraag ik daarvoor 
begrip, ik hoop dat het in het vervolg 
beter gaat^ 

Jag het was zeer moeilijk dit blad gevuld 
te krijgen. Ik voel me persoonlijk ervoot^ 
verantwoordelijk te zorgen dat er eens in 
de twee maanden een 6502 Kenner met een 
omvang van 48 pagina^'s bij de leden ligt 
tia als je dan in totaal slechts ongeveer 
is pfitgina^s beschikbaar hebt, dan moet Je 
ZBlf maar aan het schri jven^ Jiiei, llf^^^^l^^ dat 
toch al van plan maar t och ZOti xk het op 
prijs stellen als u ook wat meer kopij in 
zou willen dienen, zodat er weer een 
kopijbuffer ontstaat* 

Ondan:ks het feit dat er niet zo veel kopij 

felanengekomen is, denk ik toch dat er weer 
een blad ontstaan is met voor elck wat 
wilsch. Het blad bevat enkele zeer inte- 
ressante DOS-65 bijdragen van Ant oine 
Megens. Deze progir amina'^s he e f t hi j geup- 
load naar het Bulletin Board (053-303902) 
waarna ik ze er weer vanaf gehaald heb. 
Het ene programma bevat de DOS-65 game 
library. Dit is een bibliotheek met een 
aantal subroutines die zeer goed van pas 
kunnen komen bij het ontwerpen en imple- 
menteren van spelletjes. Het tweede pro- 
gramma bevat enkele scherm-af handelings 
routines voor DOS-65 small C. 

Voor het eerst sinds lange tijd is er ook 
lets voor EC-65 beschikbaar. Wij hebben 

als bestuur momenteel geen enkel inzicht 
in hoeveel mensen er met bijvoorbeeld EC- 
65 bezig zijn. Wei willen we toch dit 
systeem ook blijven ondersteunen en daarom 
ben ik zeer blij met de bij drage van Bert 
van Tiel. Een nieuwt je op EC- 6 5 gebied Is 
misschien dat we bezig zijn met het leggen 
van contacten met de OSI gebruikersgroep 
binnen de HCC. Niet dat we opgenomen wil- 
len worden in de HCC maar misschien kunnen 
we als verenigingen toch een vorm van 
samenwerking bereiken. Ik denk daarblj 
bijvoorbeeld aan het verspreiden van de 
wederzijdse software binnen beide vereni- 
gingen. Er is contact gelegd met het be- 
stuur van de OSI gebruike r s c lub en u hoort 
hier nog meer van. 



Verder bevat het blad nog een tweetal 
grotere bijdragen van mijn hand. Ik hoop 
dat u ze interessant vindt en dat er niet 
te gek veel fouten in staan. Het eerste 
artikel is gebaseerd op een aantal publi- 
caties over RISC-architecturen en gaat 
over de ontwikkeling en architectuur van 
moderne processoren, UmM tweede baseert 
zich op de Kermit-daaiiment at ie en kan 
gezien wotden als eeti vervolg op het arti- 
kel van Cert Klein over het Kermit proto- 
col. Een oud Comal-programma dat door een 
persbericht opeens weer actueel werd, is 
ook in dit blad opgenomen; misschien kunt 
u er lets mee 

Ja en dan het grote nieuws In de 

laatse bestuursvergadering heeft het be- 
stuur besloten de bakens te gaan verzet- 
ten. Wij zien in dat we isk^t de systemen 
die mowBHteel de bovi^iiioti^ in dm club 
voeren In de toekomst niet veel verder 
meer zullen komen en we willen de leden 
een nieuw beleid voor gaan stellen. Dit 
nieuwe beleid wordt uit de doeken gedaan 
in een artikel die ik names het bestuur en 
als bestuur slid geschreven heb. Het lis de 
bedoeling om dit beleid op de komende 
ledenvergadering (november in Almelo) aan 
de leden voor te leggen om dan volgend 
jaar met dit nieuwe beleid van start te 
gaan. Het komende najaar willen we gebrui- 
ken om al enige invulling am dit beleid 
te gaan geven. 

Tenslotte nog een leuke anecdote. Vorig 
jaar in Almelo zag ik van Antoine Megens 
een spellet je dat mijn aandacht trok. Het 
was "Bouncing Babies". Het spelletje trok 
mijn aandacht omdat het na Greedy een van 
de weinige spelletjes was dat op Junior- 
achtige systemen draait. Dit spel is door 
Aintoine ook op het Bulletin Board ge- 
plaatst en ik heb zelf s overwogen hem te 
publiceren. Nu is het yolg^jjile ^ebeurd. Er 
is, door Antoine?, ook een MS-UOS versie 
gemaakt en het bestaan van deze versie 
staat in de HCC-nieuwsbrief van Juli/Au- 
gustus (nr. 106). Bovendlen staat er in de 
laatste Computable over dit spel ook een 
klein verhaaltj^ ( k o m k o m e r t i j d ? ) . Welnu, 
wilt u dit in de vakpers veelbesproken 
videospellet j e ook eens proberen?, hij 
staat in DOS-65 formaat en in MS-DOS op 
ons Bulletin Board en is voor DOS-65 te 
verkrijgen bij Jan Derksen* 

Tenslotte wens ik u voor dit moment nog 
een mooie nazomer en voor de komende 
herf St en winter veel (computer-) hobby- 
plezier* 

Uw redact eur , 
Gert van Opbroek • 
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Datum: 17 September 1988 
Locatie; Wijkcentrum "De Ringvaart" 

Floris van Mrix^mmi^m §8 

2035 VD Haarleiii ' 

tel: 023-363851 

Entreeprijs: fl. 10, ~ 
Routebeschrij|viiig , 
AUTO: 

Komende uit de richti^g Utrecht, Aaiers- 

foort of Rotterdam: 

Afslag Haarlem-Zuid; eerste stopl^ht 
links; bij de tweede kruising met stop- 
lichten links; Floris van Adrichemlaan. 

Komende uit de richting Alkmaar: 
jEf Slag Haarle^^l4; ver^f 

OPENBAAR fflWlR: 

Vanaf het station Haarlem met buslijn 7, 
71, 72 of 77; halte floris vm Mrtdhmr 
laan. 

9:30 Zaal open met koffie 
10:15 Opening door de gastheer, onze 

voorzitter Rinus Vleesch Dubois. 
10:30 ypordrfi^Qb^t 4por A4rl H^kel : 

"Single Chip Processoren en de 
toepassing van een DOS-65 systeem 
i^ti professionele omgeyl^g" 

Dezie vottifMli liJL gepaafi 

met een demonstratie van lichtkran- 

ten 

11:30 Forum en markt 

12^00 Lunchpauze, Koffie en broodjes op 
eigen kosten te verkrij^a* 



Aansluitend het informele gedeelte bedoeld 
om kennis, ervaring Public Domain en eigen 
putwikKelde software uit te wisselen met 

m mmu6m^ mat^ wmm oqk uh eig^ 

SYSTEEM MEEl (En ipergieet de anoeren 
niet ) 

17:00 Sluiting. 




NB. Zoals elders in dit blad beschreven 
is, wil de club zlch oisk met ajidtere 
dan 6502-georienteerde systemen feiiHg 
gaan houden. Laat ons daarom ook eens 
kennismaken met uw systeem, ook al 
zit er in dit systeem een heel andere 
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Nieuwe richting voor de KIM Gebruikersclub 

Op de laatste bestuursvergadering is be- 
sloten de leden een nieuw beleid voor te 
stellen* Het bestuur is van mening dat het 
noodzakelijk is, de doelstelling van de 
club^ zoals geformuleerd op p4j|lna 2 van 
de 6502 Kenner te wijzigen. Dlt artlkel 
vormt een voorstel tot wijziging van deze 
doelstelling en alles wat daarmee samen- 
Msiigt en geeft de achtergronden die tot 
ovexweging geleid hebben. Het voor- 
stel 4^1 ingebrachtn li^pi^en in Jmarper*- 
gadertng M 5C#^itiibfi# . ; 

Inleiding 

Onze club bestaat bijna twaalf jaar onder 
de naam KIM Gebruikersclub Nederland. In 
de tijd dat deze club opgericht werd, was 
de KIM een op een microprocessor gebaseerd 
systeem dat in de Industrie als een soort 
manusje van alles gebruikt werd. Onze 
wortels liggen dan ook in de industy:,i#f 
namelijk bij Forbo Krommenie, de makers 
van Linoleum. Dit bedrijf toont ook elk 
jaar nog zijn betrokkenheid bij onze club 
door ons ieder jaar, in januari, een gast- 
vrij onderdak te verlenen voor een bijeen- 

fieM^ 1^IM is ook als knut selmachine in de 
hobby-sfeer terecht gekomen en zodoende is 
de club ontstaan. De doelstelling van de 
eliii* 3^ im^ statuti^ '■j^mwm^mmM. MM 

1) Bevordering van kennisuitwlsseling 

tussen de gebruikers over de toepas- 
sing van de KIM microcomputersystemen 
en bun eveatuele opf8^1^«^: 

<■■"'-. 

2) St aiid^atdlder lug itm i& te hanteren 
technieken bij het gebruik en de 
toepassing van bovengenoemde compu- 
ter systemen • 

Welnu, opvolgers waren er In eerste 

instantie was dat de Junior, een door 
Elektuur ontwikkeld zelfbouw systeem die 

vrijwel geheel compatible was met de KIM. 
Daar de KIM een 6502 microprocessor als 
B^i, zijn alle computers die deze 
processor hebben ook bij de alub pnderge- 
bracht. Dit waren dus Commodores, Apples, 
Atari's etc. etc. Verder natuurlijk ook 
het tweede project van Elektuur rond een 
6502 processor: de EC-65# 

Ja eti toen kwamen er modernere processo- 
ren. Er kwam een 65C02, een 6510, een 
65816 etc. Strikt genomen kan men systemen 



met een dergelijke processor nog als 
opvolger van de KIM beschouwen. Op de 
markt bleek echter ^ type systeem er wat 
m^ftetmandeel beteft met kop en schouders 
boven uit te steken: De PC-compatibles met 
een opvolger van de Z80 als processor. 
Verder zijn er moderne systemen met -68000- 
processoren gekomen. Op zeker moment is 
toen gesteld dat 4m ^l^k ilch zou gaan 
rich ten op alle typen processoren die met 
een 6 beginnen. En een Apple met Z80 kaart 
of een EC-65 met een Z80-kaart dan? De 
6502 dient als hulpje voor de Z80 en daar- 
om zouden die systemen bij ons thuishoren? 

Verder is er nog' lets anders gebeurd: Lage 

prijzen voor de compatibles en PC-Priv§. 
Het zelfbouwen loont niet meer de moeite; 
wie besteed nog ongeveer duizend gulden om 
een systeem te bouwen waarvoor dan geen 
WordPerfect en dBase beschikbaar is« Ver- 
der heeft bijna iedereen tegenwoordig op 
zijn minst toegang tot een PC en aangezien 
er prachtige software voor die systemen 
is, wordt het goede oude 6502 systeem niet 
meer gebruikt. Op zich is dat nog niet zo 
#x:gf W^r^ het. niet dat. hierdoor ons leden- 
tal eii d4ar'dodr d^ ffeldMlKdelen vm He 
club sterk afnemen. Dit betekent dat als 
we op die manier doorgaan we binnen enkele 
j aren doodbloeden door gebrek aan leden en 
dus geld. 

nitgiDBgspunteiL 

Als we trachten object ief naar de club te 
kijken, dan zien we een groot aantal posi- 

- We hebben een relatief gifote harde 

kern van leden die op een enthousias- 
te manier met de computerhobby bezig 
is. 

- We hebben een Bulletin Board dat 
redelijk bezocht wordt en door een 
enthousiaste Sysop bediend wordt. 

Verder bevat het BBS software die men 
zo vaak op andere boards tegenkomt. 

- We geven een blad uit dat er naar 
mi jn mening en naar de mening van 

anderen er best mag zijn en er pro- 
fessioneel uitziet. 

- Het kennisniveau van onze leden over 
hun systemem is hoog tot zeer hoog« 
Bijna ieder van ons kent zijn systeem 
door en door en is in staat software 
te maken van hoge kwaliteit. Het 
binnen de club ontwikkelde DOS-65 kan 
men zelf s van prof essionele kwaliteit 
noemen • 
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Mm^^ WBm cUraait si^n zijn hand 

er nlet voor oin zelf dlskcontrolers, 
AD-converters, Operating systemen en 
Compilers te maken. Kortom de door- 
smede vm mme cl^ib basl:aat ult toaut- 
selaars# 

Als enig nadeel van onze club zie ik het 
feit dat we met z"n alien halstarrig vast 
blijven houden aan de 6502. Ik zelf heb 
dan een op 68000 gebaseerd systeem, dat 
mag dan tiog, maar waarom geen 8088? Omdat 
er in de KIM een 6502 zat? Of zijn we bang 
onze identiteit te verliezen? Ik denk niet 
dat dit zal gaan gebeuren. Feit is wel dat 
per 1 januari 1988 ons ledental teruggelo- 
p^n is van bijna 400 naar amper 250. Als 
let* d^xg^lijKt pmx jaEi.ua ri 1989 weer 
gebeurt , #4. N attrtiirll Jk he eft de 

affaire rond de redactie hierin een be- 
scheiden rol gespeeld maar ik geloof niet 
dat we nu nog 350 leden zouden hebben als 
dit niet gebeurd was» 

Doelstelllng 

Om tot een nieuwe doelstelling te komen, 
is het zinvol te kijken naar de positieve 
kanten van de club. Deze zijn in de vorige 
paragraaf gj^airmwJL^axdt 

Naar de mening van het bestuur zou de 
doelstelling ongeveer als volgt geformu- 
leerd kunxien woirden: 

1) Het vergaren en verspreiden van ken- 
nis over de componenten van microcom- 
puters, de microcomputers zelf en de 
bij behorende systeemsoft ware* 

2) Het stimuleren en ondersteunen van 
het gebruik van mie^ocomputers in de 
meer technlsche toefa8#itlg6n« 

ad* 1* 

Opvallend Im, dat er niet meer over een 
type mlerocdMptitei? of processor gesprofeen 
wordt. Dit betekent dus dat we in principe 
elk type microcomputer kunnen 
ondersteunen. Bovendien staat er dat we 
ons bezig zullen houden met systeemsof t- 
ware, dit zijn het operatingsysteem, 
at^ldilers etc* 

ad* 2* 

Deze formulering houdt dus in dat we ons 
bezig zullen houden met technische toepas- 
singen, dus AD-eottversle, graf Ische toe- 

passingen, communicatie, hardware etc. Ook 
het binnen de club ontwerpen en bouwen van 
microcomputers behoort tot de mogeljkhe- 
den* Dus eigenlijk waar we ons al enige 



tijd mee bezig houden* 

Om de genoemde doelstellingen te kunnen 
bereiken, mpetep de yoigende dtogtn gebeu- 
ren: 

- De statuten moeten gewijzigd worden. 
Het bestuur zal zich hierover buigen 
en t*z*t * een voorstel aan de leden 
iro0rl€^geni 

De naam van het blad moet gewijzigd 
worden. Dit is in principe een zaak 
van de redactie* Ik denk dat het 
zinvol. Is met ingimg van de dertiende 
jaargang de naam te wiJss4S^» 
leuke voorstellen eijn^ aan hoot ik 

- De naam van de club moet misschien 
gewijzigd worden* Ik zelf vind dat de 
naam van de club nog best bij de 
doelstellingen past, maar ik weet dat 
er leden zijn die er anders over 
denken. Ook dit is een zaak van het 
bestuur die met een voorstel naar de 
leden zal komen* 

* We hebben meer kennls nodig* Dit Is 

een soort kip en ei probleem. Heb je 
geen kennis, dan krijg je geen leden, 
heb je veel leden dan krijg je ken- 
nis* We willen toch proberen, met 
name middels het blad m %m ftiltettn 
Board informatie over andere systemen 
dan DOS-65 en EC-65 te verspreiden* 
Dit kan door het publiceren van arti- 
kelen over andere systemen* Ik roep 
daarom ook iedereen op ook ai^lS^len 
mmt andere dan 6502-systemen op te 
sturen* Verde r Is het zinvol een 
ledenwerf-actie te startien* Wie wll 
dat cottrdineren? 

Het bestuur is van mening dat we door deze 
wijziglngen ook de volgende twaalf jaar 

een kans van bestaan hebben* Hoewel het 
voorstel nog niet aan de leden voorgelegd 
is, willen we toch al beginnen met de 
invulling van dit beleid. Het bestuur 
zoekt daarom contactpersonen voor met name 
Apple (Macintosh), Atari (ST), Commodore 
(Amiga) en MS-DOS* Verder is kopij over 
hardware, systeemsof t ware en technische 
toepassingen voor net gelijk welk systeem 
van harte welkom* 

Namens het bestuur: 

Gert van Opbroek* 
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Om de 6502 Kenner te vullen, heeft de 
redactie veel kopij nodig. Aangezien het 
niet de bedoeling is, dat de redacteur 
altijd zelf het hele blad volschrijft, doe 
ik een beroep op de leden. Ik vraag u 
kopij aan te leveren zodat we deze eveiX"- 
tueel in het blad kunnen plaatsen. 

Wat komt er zeal in aanmerking voor publi- 
cat la? ligenlijk alles dat lets met de 

doelstelling van de club te maken heeft. 
Dat kunnen dus onder andere programmalis- 
Ungs, leuke artikeltjes, hardware etc. 
zijn, maar ook (opbouwende) kritiek op het 
blad, de vereniging of andere pulilt€^^i^s 
in de 6502 Kenner. Ik verzoek u dus alien 
kopij in te leveren. Hebt u wel een idee, 
maar gaat het schrijven u minder goed af, 
dan is de redactie altijd bereid u bij het 
maken van een publlcatle t^fe 

Hoe kunt u de kopij inieverent Ifi de eer- 
ste plaats uiteraard op papier. Wilt u dan 
wel even op de volgende zaken letten? 

Links en rechts een marge van 1 cm 

- Boven een marge van 4 cm en onder een 

marge van 2 cm 

- Verder een zodanige zwart/wit verhou- 
ding bet Mirt f f©4 f oto- 



Verder kunnen we kopij verwerken die op 
het bulletin board staat. Als u een kort 
artikel hebt en een modem bezit , is dit 
een mogeli jkheid. Wilt u dan wel de lis- 
tings uploaden? Ik kan namelijk voor al- 
leen de Apple of voor GP/M een source 
verwerken. 

Tenslotte schijven, cassettes magneetban- 

den etc. Venp^t: teM^ f^oli^l 



Schijven: 



EC-65 
DOS-65 

Apple 11 
0S9 

Atari 
MS-DOS 



5.25" 40 track 
5.25", het liefste 40 
track, single side 
5 •IS" DOS 3.3 en CP/M 
5.25" 
3 .5" 

5!25" 360 kb 



Cassettes : 

Junior/Kim Hyper tape, (OCTQ)FATE 
Magneetband : 

VAX-VMS 1600 b.p.i. 

Verder eventueel ongelabeld 1600 

b.p.l* t tMcilJt ASCII en EBCDIC 

Tek s t verwe rke r s : 

MS-DOS Wordstar 3.30 

WordPerfect 4.1 en 4.2 
Wordstar 3*0 
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PriJsIijst DQS65 



~ Set manuals bestaande uit: * Hardware manual 

* 1065 manual 

, . • EDITOR manual 

* MONITOR manual 

* ASSEMBLER manual 

* DOS manual 

- 2764 EPROM met 1065 

- 2732 EPROM met karakter generator 

- Diskette met DOS66 en utilities 

- Floppy Disk Controller print 

- tkmm kompleet pmfe€t { al het voorgaande ) 

minimaal benodigd om DOS65 te draaien op een (ex) oc|®pili 

- Sourcelistings van DOS66, ED, MON, 1065, C compiler 

- Basic manual 

^ Small C manual ( incl. disk ) 

- OOS65 entries { Itm (lisk ) 

- Diverse diskettes met software ( zie kaHtioigus ) 



F 50,- 



F 35,- 

F 15,- 

F 50.- 

F Its,- 



F 25,- 
F 50,- 
25,- 
35,- 

7,50 



U kunt uw bestellingen doen bij: 



J.D.J. Derksen jr. 
D0S65 koordinator 

CP. Soeteliefstraat 41 

1785 rc Den Helder 

tel: 022ao - 35002 ( in hel week 



- end, vraag naar Jan junior ) 
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**** TELEFOON-KLAPPERTJE + t#t 



Wat moet een kleine data-base vodt 

foon in zich hebben? 

Je moet naraen en t elef oonnummer s kunnen 
Qpslaan. Verder is het ook aardig als ook 
een categorlespecif icatie of /en een blokje 
informatie aan het een naam verbonden zou 
kunnen worden. Er moeten veel namen in 
kunnen... Copieeren en corrigeren moet 
simpel gaan. Men meet er makkelijk en 
re#elljk snel relevante zakeii in ktinnen 
zoeken (naam, tel.nr en beroep, aard van 
een bedrijf ed.)« Er moeten wat mogelijk- 
heden zijn, om het overzicht over het 
bestand te houden. Lijsten moeten gesor- 
teerd zijn. Er moeten op eenvoudige P4|«e 
hardcopies van de printg^ Jtoonneii kdmeti. 

De bediening moet simpel zijn. Goed te 
converteren software (geen peeks en pokes, 
welnlg bijasoniere statements ed«)« 

Het bd^etiitaande kon vrij^lii Wll#€lf 
worden gerealiseerd in het bijgaande tele- 
f oonprogramma, ondanks het beperkte geheu- 
gen van de Dos-65 computer. 

De kern van het probleem nl. was dat ge- 
heugen. Een half scherm met een behoorlij- 
ke info-vulling vergt gauw SOObyte. Een 
klein, volledig Basic-base-je vergt zelf 
al gauw 25 a 35kb. En als we dan ook nog 
een sequentieele lljst items willeM 
gebruiken dan lopen we vast. En sequen- 
tieel werken geeft naast nadelen ook grotl 
voordelen • 

Dus heb ik alles maar in stukken geknipt. 
Bepaalde opdrachten uit een hoof dmenu zijn 
in enkelvoudige Basicblokken onderge- 
bracht. (Die kunt u nog comprimeren met 
een evt. nog te publiceren of al gepubli- 
ceerd compressor/hernummeringsprogramma of 
wellicht op een andere manier.) Er zijn 
vaak 2e#t veel spromgea gebruikt (voor 
progr.-structuur niet goed» maar wel com- 
pact voor sommige onderctelm mm dat t^lt 
deze keer)# 

Ook de lijst, die wij willen maken is in 
stukken geknipt. Om een laiig verhaal kort 
te maken, de naam Reitsmd kan in een - 
vanuit menu - te definieeren hoofdlijst 
(vb. 'T') worden opgelagen in files als 
TRe.var, waarbij de machine een admini- 
stratie bijhoudt in 'n file als TR.var. 
Tet gerusts telling, de gebtrulker merkt van 
alle handelingen natuurlijk nlets (buiten 



het opdracht geven, de 11 J it te cre&eren 
in het hoof dmenu). 

Id^m^ mi^floeii: jpiat ook via deze weg. Num- 
Aets S5d#feen gebetit^t tiiet vaak, dus dacht 
ik dat het niet bezwaarlijk zou zijn als 
dat wat minder snel gaat. lets dergelijks 
het categorleveld. 

De febtiflklts^tlendelijkheld is tot Itet 
extreme opgevoerd. Na het opstarten van 
Basic en het runnen van Telea, antwoordt u 
op de eerste vraag (Welke lijst) bv. met 
^T', waarna alles voor zich zelf spreekt. 
Alles wordt op drive 1 gedaan. Checks 
worden uitgevoerd, Snletterantwporden van 
u J/N ed. worden zonder uw CR uitgevoerd, 
meerletterantwoorden met CR. In menu-keuze 
Diversen zit 'Als u het niet meer weet'. 

bmm $m mmm mms' even* 

Als u wilt copieeren van de ene lijst naar 
een andere, moet die lijst er wel zijn. 
Evt. te creeeren met 'opslagmenagement' en 

als antwoord op 'naam:' -> terug naar 
menu. Zoiets geldt ook voor copy van 

!fu lhi#t u vel^^ namen met bij- 

gaande info op schijf zetten. Zo niet een 
paar duizend als u weinig info intoetst en 
750k schi j f-f ormat gebruikt. En snel te- 
rugzoeken. Er komen alleen wat veel deel- 
files op schijf, maar die verwerkt Dos-65 
bij mij tot op heden prima. En mocht u nog 
meer data kwijt willen, dan kunt u de 
Basic stukken op de systeemdrive zetten, 
met een aanpassing van de Dos asn opdracht 
In de software. 

Ow suggestles en raad zijn van harte wel- 
kom* 

Succes en sterkte bij het fy^^l^m^ toet- 
s en 1 1 

Overigens: mocht dit in de soep lopen en 
kan u de zaak niet meer aan de praat 
krijgen, maak dan uw hoofdlijst weer eens 
opnieuw met menufunctie opslag na verbete- 
ren van de f jO^t(em)* 

G.J.Reitsma, 

Schouw 19, 

1261 LE Blaricum. 

Tel. 0«f|Hiii45. 

Noot van de fedactle: 

De software staat ophet Bulletin Board of 
kan op schijf verkregen worden bij de DOS- 
65 software cofodinatorv 
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Written by A.G.Megens 

Haringvliet 371 
8032 HK Zwolle 



June 1988 
phone: 038-537073 
Op het. .staat emi iBtz^mmlivig z^i^r interessante files: 

De DOS65 Game Library 

Met behulp van deee files kan men op eenvoudige wijze spelletjes op een DOS65 systeem 
<mt3dLKkeIen« 

Mensen die graag de beschikking ovmr de programmatuur willen bebben^ fcJutnnen deze 
downloaden van het |g|l#tin Board of yoor £• 7,50 een f lopi^y bij Jan QerkBjeni basti^lj.en* 



JMPVAR.MAC 
SYSCLK.MAC 
WAIT .MAC 
KEY .MAC 
SCORE .MAC 
SPRITE.MAC 
ENDGAME .MAC 
INSTRUC.MAC 
RANDOM .MAC 
SCREEN .MAC 
SHWKEY.MAC 
DEMO.MAC 



library bestaat uit de volgende files: 

een JMP table en wat variabele declaraties 

Om de juiste WAIT loop in ta B^tMlXm 

Om de boel wat te vertragen m lAI^Klf sii^iroen 

Een paar keyboard routines 

Om de score bij te houden 

PLOT/ERASE routine voor sprites (nou, ja sprites is een groot wpord) 
Sluit spelletje af, met (nieuwe) bigh-score check 
Voorbeeld file hoe instructles eriA «iaan (zie B®fO#l£&C) 

Random Number Generator 

Een paar kleine screen routines 

Voorbeeld file hoe controle toetsen te laten zien (zie ook DEMO •MAG) 
Een voorbeeld game dat gebruik maakt van bovenstaande routines 



In deze uitgave van de 6502-Kenner wordt de bibliotheek zelf afgedrukt, in het oktober- 
nummer wordt het voorbeeld-programma DEMO.MAC afgedrukt. 

************************************************************* 

* GAME-LIBRARY:JMPVAR.MAC * 

* * 
******************************** 



1 


KEYPNT 


EQU 


$E7B7 


2 


TOUTF 


EQU 


$E738 


3 


TOUTIL 


EQU 


$E772 


4 


TOUTIH 


EQU 


TOUTIL+l 


5 


TOUTL 


EQU 


TOUTIL+I 


6 


TOUTH 


EQU 


TOUTIL+3 


7 


PTR 


EQU 


$20 


8 


RUBOUT 


EQU 


$7F 


9 


BELL 


EQU 


$07 


10 


ESC 


EQU 


$1B 


11 


CR 


EQU 


$0D 


12 


LF 


EQU 


$0A 


13 


TAB 


EQU 


$09 


14 


FOPIF 


EQU 


$oc 


15 


9 






16 
17 


; jump table 


D0S65/i065 


18 


OUTCHAR 


JMP 


$F000 


19 


INKEY 


JMP 


INPKEY 


20 


HEXOUT 


JMP 


$C038 


21 


PRINT 


JMP 


SC03B 


21 


CLKUPD 


JMP 


$F5DF 


23 


POTCUR 


JMP 


$F02A 



; pointer in input buffer 

; screen-off flag 

; default screen-off time 

;16 bits screen-off timer 

;zero page general purpose pointer 

;code for RUBOUT key 

; i^qde f px Mhh charactei: 

; code for 1S<J character 

; Carriage Return coAit 

;Line Feed code 

;Tab character 

; Formfeed code 



;print character 

;get key without wait 

; print A in hex 

; print a string 

; software clock to efatusllae 

;put cursor at sc^eejlposition in X^t 



to 
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24 

25 



Variable section 



m 

27 
28 
29 
30 


f 
9 


basic 


set only, 


li f impendent variables xn main f xle 


9 
9 

SYSCLK 


fee 


0 


;$80/$00 for system clock 1/2 Mhz 


31 


COUNT 


fee 


0 


; ehar • count 


32 


PAUSE , 


fee 


0 


•program p$«iie*initializ^ at startup! 


33 


PSA? 


fee 


0 


jteiDp * save riiUdci 

;# of lives or ships left or, etc. . • 


34 


LIVES 


fee 


0 


35 


ROUND 


fee 


0 


; round counter 


36 


SCORE 


fee 


0,0 
0 


; SCORE 


37 


HALTJ 


fee 


;HALT flag, PAUSE key activated! 


38 


XPOS 


fee 


0 


; cursor position 


39 


YPOS 


fee 


0 




40 


TEMP 


fee 


0 


;teinp storage 


41 


SPTR 


fee 


0 


;pointer in SPRITE table 


42 


SPRTAB 


fee 


0 


; SPRITE table #1 or #2 flag 


43 


XSAV 


fee 


0 


;save X reg. 


44 


YSAV 


fee 


0 


;save Y reg. 


45 


ASAV 




0 


; 8ave A reg«i 



******************##***********«********* 

* * 

* GAME-LIBRARY:SYSCLK.MAC * 
« * 
***************************** 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

%k 

27 
28 
29 

30 
31 
32 
33 
34 
35 



CLOCK let user select system clock 
Input : n6ne 

Output : SYSCUC » $80 - I Mhz system clock 
« $00 - 2 Mhz 

Destroys: A,X,Y 

Calls : CLS sends a formfeed to scremi 
WFKEY wait for key 

PRINT print string until NULL ^SSM^ ftptttei) 



CLOCK 



CHOISE 



TEST2 



TWOMHZ 



JSR 
JSR 
fee 
fee 
fee 
fee 
fee 
fee 
fee 
JSR 
CMP 
BNE 
LDA 
STA 
JSR 
fee 
JMP 
CMP 
BEQ 
CMP 
BNE 
LDA 
STA 
JSR 



CLS 
PRINT 

'The waitloop in the program is systemclock dependent,' 
" default a 2 Mhz clock' ,CR 

'is presumed, type 1 or 2 to select the proper speed:' 
CR,CR,CR 

TAB, TAB, '1 1 Mhz',CR,CR 

TAB, TAB, '2 2 Mhz',CR,CR 

'Enter ffiixr ^uslffiB (1/2) > ',0 
WFKEY 

;<1> selected t 
;no cheek other choise 
;else put $80 in SYSCLK 



rr 

TEST2 
#$80 
SYSCLK 
PRINT 
'1 

BMESS 

TWOMHZ 
#CR 

CHOISE 
#0 

SYSCLK 
PRINT 



;and tell the user 
The 1^,0 

• selected? 

•yep, then write $00 in SYSCIX 
;<CR> depressed? 

;no, then illegal choise, ignore it 
;else select 2 Mhz system clock 

;and tell the user 
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36 
37 
38 
39 



fee 
JSR 

fee 
RTS 
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'2 The 2',0 

' Mhz wiettl®op is now Installed'' |0 



************************************************************ 

* ^ * 

* e A M E - L I B R A % f : W A I T . M A € * 

* * 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



WAIT 



Input : 



Slow things down 

Also ehecks for HALT flag, set by PMfSI feey 
if set show message on sereen on line 1 at pot. 



25 



Output : 

Destroys; 

Calls: 



19 

20 


WAIT 


JSR 


CLKWD 


21 




LDX 


PAUSE 


22 


WLPl 


LDY 


SYSCLK 


23 


WLP2 


DEY 




24 




BNE 


WLP2 


25 




DEX 




26 




BNE 


WLPl 


27 




LDX 


HALTF 


28 




BEQ 


WEXIT 


29 




JSR 


PRINT 


30 




fee 


$14, 25,1, 'Press 


31 




JSR 


INVERS 


3t 




IM 


HALTKEY 


33 




JSR 


SPECIAL 


34 




JSR 


NORMAL 


35 




JSR 


PRINT 


36 




fee 


' to eontinue.. 


37 


HALT 


JSl 


INKEY 


38 




BNE 


HALT 


39 


HALTl 


JSR 


INKEY 


40 




CMP 


HALTKEY 


41 




BNE 


HALTl 


42 


HALT2 


JSR 


INKEY 


43 




BNE 


HALT2 


44 




IDA 


#0 


45 




STA 


HALTF 


46 




JSR 


PRINT 


47 




fee 


$14,25,1,' 


48 


WEXIT 


RTS 





SYSCLK = $00 - 2 Mhz system clock 

= $80 - 1 Mhz 
SPEED input speed, controls gmm «p#^i 
HALTF flag for PAUSE key 
HALTKEY current HALTKEY value 
message If HALT/ PAUSE key is depressed 
A,X,Y 

CLKUPD clock update on status line (1065 routine) 

PRINT print string mt±l NULL (DQS65 routine) 

INVERS set display in inverse mo^€ 

NORMAL set display in m$mM. timie 

SPECIAL show named key 

INKEY get a key without wait 

; update wymmt clock and nhwrn it 
;get current speed 
;get system clock 

;keep counting 



;HALT flag set? 
;no, then done 
;else show message 

jshow current HALTKEY in inverse 

J if mmmi %^ then show it (e.g. ESC) 

; second part of message 
,0 



;iia£t for release 
;wait for HALTKEY 

;wait for release 
jclear HALT flag 

; clear message 



,0 
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24 
15 
IS 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 



SYSCLK 
COUNT 



PSAV 

LIVES 
ROUND 
SCORE 

YPOS 

TEMP 

SPTR 

SPRTAB 

XSAV 

YSAV 

ASA? 



********** 
* 



Variable section 

basic set only, add your game defi^iAl&t variables in main file 



fee 
fee 
ifcc 
ifcc 
fee 
fee 
fee 
fee 
¥cc 
fee 
fee 
fee 
fee 
fee 
fee 
fee 



0 
0 
0 
0 

0 
0 

0,0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



;$80/$00 for system eloek 1/2 Mhz 
; char. count 

; program pause » Initialize at startup! 
;temp. save PAtJIiE 

;# of lives or ships left or, etc... 

; round counter 
; SCORE 

;HALT flag, PAUSE key activated! 
; cursor poisltlon 

;temp storage 

;pointer in SPRITE table 

; SPRITE table #1 or #2 flag 

;save X reg. 

;save Y reg. 

J save A reg. '- 



GAME-LIBRARY : SYSCLK .MAC 



* 
* 

* 



1 
2 

3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
M 
35 



CLOCK 



CUOISE 



TEST2 



TWOMHZ 



CLOCK let user select system eloek 
Input : node 

Output: SYSCLK = $80 - 1 Mh« system clock 
- $00 - 2 Mhz 

Destroys: A,X,Y 

Calls : CLS sends a formfeed to screen 
WFKEY wait for key 

PRINT print string until NULL (DOS65 routine) 



JSR 
JSR 
fee 
fee 
fee 
fee 
fee 
fee 
fee 
JSR 

BNE 
IDA 
STA 
JSR 
fee 
JMP 
CMP 
BEQ 
CMP 
BNE 
IDA 
STA 
JSR 



CLS 
PRINT 

'The waitloop in the program is systemeloek dependent,' 
' default s 2 clock', CR 

'is presumed, type 1 or 2 to select the proper speed:' 
CR,CR,CR 

TAB, TAB, '1 1 Mhz',CR,CR 

TAB, TAB, '2 2 Mhz',CR,CR 

'Enter yc^ Cb»l9e (1/2) > ',0 
WFKEY 

;<1> selected? 

;no cheek other choise 
;else put $80 in SYSCLK 



TEST2 
#$80 
SYSCLK 
PRINT 
'1 

RMESS 
#'2' 
TWOMHZ 
#CR 

CHOISE 
#0 

SYSCLK 
PRINT 



;and tell the user 
The l',0 

;<2> selected? 

;yep, then write $00 in SYSCLK 
;<CR> depressed? 

;no, then illegal ehoise, ignore it 
;else select 2 Mhz system eloek 

;and tell the user 



11 



DOS — i&S Corm 



36 
37 
38 
39 



fee 
JSR 

fee 
RTS 



'2 The 2',0 

libs wait loop is now inst alled' , 0 



***************************************************************** 

* ^ ' * 

* e 4 8 I - , I B R A R Y : W A I T . M A e * 

* * 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



lAIf 



Input * 



Slow things down..... 

Also eheeks for HALT flag, set by P*DSE kef 

if set show message on screen on line 1 at pos. 25 



SYSCLK = $00 - 2 Mhz system clock 

= $80 - 1 Mhz 
SPEED input speed, controls gsnte #piid 
HALTF flag for PAUSE key 
HALTKEY current HALTKEY value 
Output: message if HALT/PAUSE key is depressed 
Destroys: A,X,Y 

Calls: GLKUPD clock update on status line (1065 routine) 
PRINT print string until NULL (D0S65 routine) 
INVERS set display In inverse miotis 
NORMAL set display in normal iBftii 
SPECIAL show named key 
INKEY get a key without wait 



19 

20 


WAIT 


JSR 


CLKUPD 


|iip«la^€ system clock and show it 


21 




LDX 


PAUSE 


jget current speed 


22 


WLPl 


LDY 


SYSCLK 


;get system clock 


23 


WLP2 


DEY 






24 




BNE 


WLP2 


;keep counting 


25 








26 




3m 






27 




IDX 




;HALT flag^ set? 


28 




BEQ 


WEXIT 


;no, then done 
;else show message 


29 




JSR 


PRINT 


30 




fee 


$14, 2 5,1, 'Press 


%o 


31 




JSR 


INVERS 


jshow cmrrent HALTKEY in inverse 


32 




mk 


HALTKEY 




33 




JSR 


SPECIAL 


|tf nmm^ key then show it (e.g. ESC) 


34 




JSR 


NORMAL 




35 




JSR 


PRINT 


; second part of measage 


36 




fee 




liiait for release 


37 


HALT 


JSE 




38 




BNE 


HALT 




39 


HALTl 


JSR 


INKEY 


;wait for HALTKEY 


40 




CMP 


HALTKEY 




41 




BNE 


HALTl 




42 


HALT2 


JSR 


INKEY 


;wait for release 


43 




BNE 


HALT2 




44 




LDA 


#0 


; clear HALT flag 


45 




STA 


HALTF 




46 




JSR 


PRINT 


: clear message 


47 




fee 


$14,25,1.- 


'.0 


48 


WEXIT 


RTS 
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ES" IM 3^ 
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* * 

* C A M E - L I B R A R Y ! K E Y . M A C * 



1 

2 
3 
4 
5 
i 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



INPtIt check for user input on control he^m Istfijetai at KEYCODE 
Input? KEYCODE table 



Output: 



Destroys : 
Calls : 



jump to selected routine 
also counts DIST for FIRE key 

for QUIT key, returnvalue A<0, else A>0 
keycode in KEY, previous value in PREVKEY 
A,X,Y,KEYPNT 

INPKEY get key without wait 
RANDOM generate new RND number 



Note: 



INPUT 
NCKEY 



Be sure all key routines exit with A>0 or else the program will 
act as if the QUIT key was depressed. 



GOTHERE 



TSTKEY 



JSR 


INPKEY 




BNE 


l.f 




JSR 


RANDOM 




LDA 


KEY 




STA 


PREVKEY 




IDA 


#0 


} A«0 , NULL code 


STA 


KEY 




GLC 




;C»0 , no action taken 


RTS 






luDX 


#0 


; check KEYCODE table 


STX 


KEYPNT 


; ignore rest of iMfHtbtif f er 


CMP 


KEYCODE, X 


BEQ 


3*f 


; found one! 


INX 






CPX 




;all keys tested? 


BNE 


2.b 


;no, keep trying 


BEQ 


NOKEY 


;else act as if no key depressed 


LDY 


KEY 




STY 


PREVKEY 




STA 


mm 




TXA 




; convert X to pointer 


ASLA 




;in JMP table (2 bytes/key) 


TAX 






LDA 


KEYSUB+l ,X 


;get address 


STA 


PTR+1 


;hl 


LDA 


KEYSUB^X 


STA 




;io 


JSR 


601»ERE 


;and go there 


SEC 




;C=1, action was taken!! 


RTS 






JMP 


[PTRJ 


;PTR filled with routine address 


TSTKEY 


check for QUIT and HALT keys only 


Input : 


QUIT and 


HALTKEY code 


Output : 


A<0, C=l 


for QUIT key 




A=l, C=l 


and HALTF set for HALTKEY key 




A=0, C=0 


If none depressed 


Destroys: A,X,Y 




Calls: 


INPKEY get key without wait 


JSR 


INPKEY 




BN£ 


l.f 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

in 

112 
113 
114 
115 



59 


3 


1114 


#0 


60 




CIC 




61 




RTS 




62 


1 


CMP 


QUIT 


63 




"D MI? 


Z • 1 


64 


QADDR 


LDA 


#-1 


65 




SEC 




66 




RTS 




67 


2 


CMP 


HALTKEY 


68 




BNE 


3.b 


69 


HADDR 


LDA 


#1 


70 




STA 


HALTF 


71 




SEC 




72 
73 
74 




RTS 






WFKEY 


Wait for key and call RANDOM generator while doing so 


75 








76 




Input : 


none 


77 




Output : 


Keycode tti A atld KEY 


78 




Destroys: A 


79 




Calls: 


RANDOM random number generator 


80 






CLKUPD status line clock update 


81 
82 
83 






INPKEY get key without wait 


9 

WFKEY 


TXA 


; save X 


84 




PHA 




85 




TYA 


imd Y 


86 




PHA 




87 


1 


JSR 


RANDOM ;do RND while waiting for & key 


88 




JSR 


CLKUPD ;keep clock up to date 


89 




JSR 


YWn^ ;get key without wait 


90 




BEQ 


l.b 


91 




STA 


KEY 


92 




PLA 




93 




TAY 


; restore Y 


94 




PLA 




95 




TAX 




96 




LDA 


KEY 


97 




RTS 




98 


KEY 


res 


1 ;used to store KEY value 

1 ;used in WSSM for previous k^ 


99 

100 


PREVKEY res 



WFDSER Wait for user actiom to continue (e.g. to i^msA Instructitos) 
WFSPACE Wait for space-feat SiEth no message 

Input : none 

Output : message on screen 

Destroys : A,X,Y 

Calls : WFKEY suspend until key is depressed, while calling RKD 
PRINT print string 



WFUSER JSR 
fee 

WFSPACE JSR 
CMP 

BNE 
RTS 



PRINT 

CR,CR, 'press 
WFKEY 

r ' 

WFSPACE 



to continue • • • • • ,0 
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117 ; INPKEY get key without wait " " 

118 ; 

119 ; Input : none 

120 ; Output: keycode in A or NULL if no key depressed 

121 ; Destroys: A,X 

122 J Calls: INPX get input from device X (1065 routine) 

124 INPKEY LDX #9 ;don't wait for key if none depressed 

125 JMP $F009 ;I065 routine 
126 

128 ; DEFINE Redefiia^ ei^j^l keys '"^•'•'^ 

129 ; • ^ 

130 ; Input: current ifalues control keys at label KEYCODE 

131 J can define NUMKEYS keys (both in main file, see IHIiUM^) 

132 ; Output: new values control keys 

133 ; Destroys: A,X,Y,ASAV,XSAV,YSAV 
13A J Calls: CLS Cleai? screen 

135 t mrm print string 

136 ; SHWKEY Show values control keys (game dependent routine) 

137 ; PUTCUR Put cursor at X,Y 

138 ; WFKEY Wait for a key 

140 DEFINE JSR CLS ; clear screen 

141 JSR PRINT ; show help info 

142 fee 'The current key values are showed, if you want to change one o 
f them moire the',CR 

143 fee "arrow with the RETURN key until the desired line is reached the 
n press the new*",GR 

144 fee 'key for that function* Remembfr* some CTRL keys may not be u 
sed (^C, "S, ^Q',CR : ^ ^ 

145 fee 0 

146 JSR PRINT 

147 fee 'etc#) because they are already used for special functlj^tis by 
the system. If',CR 

148 fee 'you are satisfliiil ieaire with ctrl-A',0 

149 LDY #10 

150 STY YSAV 

151 SHWVAL JSR SHWKEY ; show current control keys 

152 NEWKEYS LDY YSAV ;show arrow 

153 LDX #21 ' 

154 JSR PUTCUR 

155 JSR PRINT 

156 fee >',0 

157 JSR WFKEY ;get a key 

158 AND #$7F 

159 JSR PRINT J clear errormessage (if any) 

fee $14;id,S,' ^,0 

161 CMP #CR ;move arrow? 

162 BNE NEWVAL ;no, new key value 

163 LDX #21 

164 LDY YSAV ;else move two lines down 

165 JSR PUTCUR 

166 JSR PRINT ; first clear arrow 

167 fee ' ',0 

168 LDY wm pmm t position arrow 

169 INY 

170 INY 

171 STY YSAV 

172 LDA #10 ; starts at line 10 

173 CLC 

174 ADC #(2*NUMKEYS) 

175 CMP YSAV ;wrap around? 
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176 




BNE 


NEWKEYS 


177 




LDY 


//lO 


178 




STY 


YSAV 


179 




BNE 


NEWKEYS 


180 


NEWVAL 


STA 


ASAV 


181 




CMP 


#1 


182 




BEQ 


DEFEX 


183 




LDA 


YSAV 


184 




SEC 




185 




SB0 


#10 


186 




LSRA 




187 




TAX 




188 




LDA 


ASAV 


189 




STA 


KEYCODE X 


190 




JMP 


SHWVAL 


191 


DEFEX 


LDX 


#0 


If 2 


SAME 


LDY 


#0 


193 




STX 


XSAV 


19A 




LDA 


KEYCODE, X 


195 


SO 


CPY 


XSAV 


196 




BEQ 


NY 


197 




CMP 




198 




BEQ 


SMESS 


199 


NY 


INY 




200 




CPY 


#NUMKEfS 


201 




BNE 


SO 


202 




INX 




203 




CEX 


#NUMKEYS 


204 




mm 


SAME 


205 




Jkts 




206 








207 


Imess 


JSt 


PRINT 


208 




fee 


$14,10,8,' 


209 




JMP 





210 
211 
212 
213 
214 
21 S 
216 
217 
218 

219 

120 

221 
222 

223 



;no, continue loop 
;else first line again 



; save key code 

;ctrl-A key? 
;yes, exit 

jeonvert arrow position 

jf^Bter In key values table 
-startled at Htm 10 

; divide by 2 (moved 2 lines/key) 
;this is pointer in keycode table 

; store new value 
;mid show it 
,^mme key for more thmi mue fimetioni 



;get keycode 

IQmm pointer then skip test 

imsmm aode alremdy used? 

if^Bf error message and try again 



;all keys tested? 
;no, continue 

$wm h)^m okt i^tum to main menu 



SPECIAL convert special keys to a named string 

example: ASCII $ IB will translate to string ESC 



Input : 



Output : 
Destroys: 
Calls : 



key code in A 
SPKEYS table 
KNAME table 
KEYS table 
string or char. 
A,X 

PRINT print a 
OUTCHAR print a 



string 
character 



224 


SPECIAL 


LDX 


#0 


225 


TSKEYS 


Off 


SPKEYS ,X 


226 




BEQ 


PKNAME 


227 




INX 




228 




CPX 


#SPEND-SPKMS 


229 




BNE 


TSKEYS 


230 




CMP 


#32 


231 




BCC 


PRCTRL 


232 




JMP 


OUTCHAR 


233 


PRCTRL 


JSR 


PRINT 


234 




fee 


'CTRL-',0 


235 




CLC 




236 




ADC 


rr 


237 




JMP 


OUTCHAR 


238 




LDA 


KNAME, X 



j spmiiial to^? 

;yes, print Its name 



; control key? 
;yes 

;else just print keyeharacter 

; control key starts w±th ''GfftL-^ string 

; convert code 0#*32 to printable ASCII 



;get keyname pointer 
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f3'f' 
240 
241 
242 
243 
244 

fm 

247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 



TAX 

PMNAME LDA 
BEQ 
JSR 
INX 
BNE 

OK RTS 



KEYS.X 
OK 

OUTCIMl 



;and print string found there 



Table section 



SPKEYS 
SPEND 



KEYS 

SPCNAM 

LFNAME 

RUBNAM 

TMNAM 



fee 
equ 
fee 

fee 
fee 
fee 
fee 

fee 

fee 
fee 
fee 
fee 



ES©,,' 



SPCNAM-KEYS 
LFNAME-KEYS 
RUBNAM-KEYS 
TABNAM-KEYS 

'ESC',0 
'SPACE', 0 
'LINE-FEED' ,0 
' RUB-OUT', 0 



* * 

* G A M E - L I B R A R Y : S C 0 R E * MAC * 

* * 
************************* 



1 


• s-assasssssssssssa: 


2 


f 


HITABU; 


3 


> 




4 


5 




5 




Output: 


6 


• 


Itestroy 


7 


• 

9 


Calls : 


8 


f 




9 


1 ■ ■ 




10 




11 




JSR 


12 




fee 


13 




fee 


14 




fee 


15 




fee 


16 




fee 


17 




fee 


18 




LDX 


19 




LDY 


20 


HILOOP 


JSR 


21 




fee 


22 


PRNAME 


LDA 


23 




BEQ 


24 




INY 


25 




JSR 


26 




BNE 


27 


PRSCORE 


INY 


28 




JSR 


29 




fee 


30 




LDA 


31 




JSR 


32 




LDA 


33 




JSR 



Bnafaaaaaaa 



SAMES and HISGORE table 
table on screen 
A,X,Y 

PRINT output string until NULL 
OUTCHAR output single char in A 
HEXOUT print A in hexadecimal 



j^how header 



PRINT 

TAB, TAB, TAB 

ESC , ' Fpxxxxxxxxxxxxxxxxxxxxxxxxxv' , ESC , ' , CR 
TAB, TAB, TAB 

ESC,'Fy',ESC/G HIGH SCORES TODAY ' ,ESC , 'Fy' ,ESC ,'G' ,CR 
TAB, TAB, TAB - ♦ 

ISC, Fqxxxxxxxxxiaacxxxxx^ , , 

#0 

PRINT ;show rest of cadre 

TAB , TAB, TAB ,ESG,'Fy' , ESC, 'G ' , 0 



NAMES, Y 
PRSCORE 

OUTCHAR 
PRNAME 

PRINT 

- -,o 

HISC0RE+1,X 
HEXOUT 
HISCORE,X 
HEXOOT 



; print name 
; terminated with a HULL 



; print score 
;hi part first 
;then lo part 
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34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
St 
53 
54 
55 
56 
57 

m 

59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
15 
76 
77 
78 
79 
80 
81 

m 

83 
84 
85 
86 
87 
88 
89 
90 
91 
92 



fee 
INX 
INX 
CPX 
INE 
JSR 
fee 
fee 
RTS 



PRINT ;and another '0' to make it look fcefcte*' 

'0 ',ESC,'Fy',ESC,'G',CR,0 



#10 

HILOOP 
PRINT 

TAB,TAB,TAB 
ESCj'Frj 



;5 names/ scores stored 
; close cadre 

, ESC ) '6' » GR » ( 



UPDSCOR Update SCORE, add contents of A to SCORE and refresh the 
gaiae status line. 



Input ; 



Output : 

Destroys 
Calls: 



incremental value in A 

ROUND = current game round 

SCORE = current score 

HISCORE = high score 

LIVES = number of lives left 

new status line 

A,X,Y 

INVERS set screen inverse mode 

NORMAL set screen normal mode 

SHOWA show A in hex, at screen loc. X,Y 



wsmm SEi 

SED 
CLC 

mc 

STA 
8CC 

tm 

ADC 
STA 

NN CLD 
CLI 



; disable interrupts (decimal mode) 



;add A to score 
;new score 



UPDATE 



UPDATE 



JSR 

im 



SCORE 
SCORE 
NN 

SCORE+1 

#0 

SCORE+1 



Routine for GAME STATUS line 

(change fields according to current game) 



LDX 
LDA 
JSR 
LDA 
JSR 
LDX 
LDA 
JSR 
LDA 
JSR 
LDX 
LDA 
JSR 
JMP 



INVERS 

#25 

ROUND 

#25 

SHOWA 

#59 

HI SCORE+1 
SHOWA 
HTSC01E 
SHOWA 

#38 

SCORE+1 
SHOWA 

'§4i&i^ ■ 

SHOWA 

#76 
LIVES 
SHOWA 
NORMAL 



; update status line 
;at line 25 
; round counter 
^position 25 

;position 59 
;hiscore ■. ' 



;position 38 
; current score 



; position 76 
; lives 
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93 

QA 


> 


SHOWA 


Print A in hex on screenpostion X,Y 


QS 
yj 


5 








yO 




Input : 


4 value 




Q7 
y 1 


\ 




X « X position 


(colutfiti) 


y o 


\ 




Y = Y position 


(line) 


QQ 

-7 y 




Output : 


A in hexadecimal on screen 


1 fin 


\ 


Destroys: A,X 




1 n 1 


> 


Ud.XJLS • 


OUTCHAR print 


char, in A 


JLU^ 


> 




PUTCUR put cursor at X^Y 

" II 1 I' 1 1 r 1 ' 1 1,111 1 1 - 1 ii t 1 "i 1 ii-iTi 11 1 11 1 I II II 1 1 i-i'i 1 1 1 1 1 1 11 1 I't 1 : 1 1 1 1 II -.1 ii.r 1 ■ rn i: 11. 1 1 frr i - ji i _t \ »:r , " . ■ ■ i ■ r inri r - i mi ijiii ; 1 1 " "i 


DJClUWii 


PHA 




;save value 


1 U J 




LSRA 




;get high nibble 


1 n^^ 

i UD 




LSRA 




1 07 




LSRA 






iUO 




LSRA 






1 no 




JSR 


FRAG 


;and show It 


1 1 0 




PLA 




; restore value 


111 


PRNIB 


AND 


#$F 


;get low nibble 


112 


PEAC 


SED 




; enter decimal mode 


113 




CLC 




;C=0. 


114 






•#§90 


; convert nibble to .Aiiil 


115 




ADC 


#140 




116 




CLD 




; clear decimal mode 


117 




JSR 


PUTCUR 


;goto screen position 


118 




JSR 


OUTCHAR 


;and put char, there 

; increment X for next cull 


119 




INX 




120 




RTS 







is -k 

* GAM 1 - L I B R A R t : S P R I T E • m A C * 



1 
2 
3 
4 
5 
6 
7 
8 
9 

11 



PLOT Plot sprite X 



Input 



Output 
Destroy 5 



X contains offset in sprite table SORT- 

XPOS, YPOS contain upper left coordinate of sprite, 

sprites are stored in SPRITE and SPRITE2 

sprite displayed on screen 
A,X,Y ,TiMP ,Sf 8TAB>SPTR 



12 


PLOT 


LDY 


YPOS 


;save Y-pos. 


13 




STY 


TEMP 




14 




LDA 


#0 




15 




STA 


SPRTAB 


; default take SPRITE table 1 


16 




CPX 


#S0RT2-S0RT 


; which SPRITE table? 


17 




BCC 


POK 


;#1 •. 


18 




INC 


SPRTAB 


;else take #2 


19 


POK 


LDA 


SORT,X 


;get figure to draw 


20 




STA 


SPTR 


;pointer to string 


21 


PLOOP 


JSR 


GOTOXY 


;goto screenposition 


22 


GETCHAR 


LDX 


SPTR 


;get stringpointer 


23 




INC 


SPTR 


; IncreBient stringpointer 


24 




LDA 


SPRTAB 


; table #1 or #2? 
■J2 


25 




BNE 


N2 


26 




LDA 


SPRITE, X 


;get character from string 


27 




JMP 


P] 


28 


N2 


WA 


SPRITE2»X 




29 


PI 


BEQ 


DONE 


;NULL means end of data 
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DOS- e. 5 



C en rr m o IT 



30 


CMP 


#1 


31 


BEQ 


NEXTLIN 


32 


JSR 




33 


BNE 


GETCHAR 


34 


NEXtLlN INC 


YPOS 


35 


BNE 


PLOOP 


36 


DONE LDA 


TEMP 


37 


STA 


YPOS 


38 


RTS 




U 







40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 



;''A means next line 
li&tm print clai:. 
jand get next ■ 
;incr. Y-pos. 
;and get next char. 
; restore Y-pos. 



ERASE Erase sprite X 

Input : X contains offset in sprite table SORT 

XPOS, YPOS contain upper left coordinate of sprite, 
sprites are stored in SPRITE and SPRITE2 



Output : sprite displayed on screen 
Destroys: A,X»f j|Tilir»ifSffiil*I^TR 



ERASE 


LDY 
STY 
LDA 


YPOS 
TEMP 

#0 


; save Y-pos • 




STA 


SPRTAB 


; default take SPRITE table 1 




CPX 


#SORT2*^S0iI 


fife*^ SPRITE tlAl#? 




BGC 


EOK 


ill 




INC 




;else take #2 


EOK 


LDA 


SORT ,X 


;get figure to erase 




STA 


SPTR 


;pointer to string 


ELOOP 


JSR 


GOTOXt 


;goto screenpositlon 


ERACHAR 


LDX 


SPTR 


;get pointer 




INC 


SPTR 


;incr« pointer 




LDA 


SPRTAB 


; table #1 or #2? 
;#2 




BNE 


NR2 




LDA 


SPRITE, X 


;get character from string 




JMP 


El 


NR2 


LDA 


SPRITE2,X 




El 


BEQ 


DONE 


;NULL means end of data 




CMP 


#1 


;neirC: line? 




BIQ 


NXTLINE 






CMP 


#ESC 


;ESC sequence? 




BNE 


NOESC 


;no 




INC 


SPTR 


;yes, then ignore next chart 




BNE 


ERACHAR 


;and get next 


NOESC 


LDA 
JSR 


r ' 

OUTCHAR 


;else erase char . 




BNE 


ERACHAR 


; until end 


NXTLINE 


INC 
BNE 


YPOS 
SLOOP 





Note: Table SPRITE, SPRITE2 md SOKT are to be inserted In MAIN program 
(also see DIMO.MAC file) 



* * 

* GAME-LIB RARY:ENDGA ME. MAC * 

* * 
******************************************************************** 



1 
2 
3 
4 
5 



; End of game, check HI SCORE etc. 



ENDGAME LDX 
SCHECK LDA 



#0 

SCORE+1 
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6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 

E' 

55 
>',BELL 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 



NSCORE 

SWAP 
NEMI6B 

INSERT 



SSCORE 



MKROOM 



OVWRITE 
CLKHAM 



GNAME 



CMP 
BEQ 
BCS 
INX 
IMX 
CPX 
BNE 
JMP 
LDA 
CMP 

mQ 

STX 

CPX 

BEQ 

LDY 

LDA 

STA 

CPY 

BEQ 

DEY 

JMP 

LDA 

STA 

LDl 

STA 

TXA 

AS LA 

ASLA 

ASIA 

STA 

CPX 

BEQ 

LDY 

LDA 

STA 

CPY 

BEQ 

DEY 

JMP 

LDX 

LDA 

LDY 

STA 

INY 

INX 

CPX 

BNE 

JSR 

fee 

fee 

fee 
JSR 
JSR 
fee 
LDX 
STX 
LDY 
JSR 
AND 
CMP 



HISCORE+l,X 

SWAP 

NEWBI6H 



#10 

SCHECK 

QUEST 

SCORE 

HI SCORE ,X 

NSCORE 

XSAV 

#8 

SSCORE 
#7 

HISCORE,Y 

Hisctis+a»t 

XSAV 
SSCORE 

INSERT 
SCORE 
HISCORE,X 
SOOEE+1 
HISCORE+1 ,X 



TEMP 

#8 

OVWRITI 
#63 

NAMES, Y 
H^S'4-16 ,Y 
TEMP 
OVWRITE 

MKROOM 

m 
r 

TEMP 
NAMES, Y 



;greater or equal than hiscore? 
; equal, then also test low byte 
;yep, new high score ! 



;then ask for another 
;get low byte score 



; smaller then hiseore , try next 

;last high score? 

;yes, then doesn't need inserting 

;make room for new high seore 



; store new high score In table 



;X=0,2,4,6,8 

;*2 

j*4 

f*« 

;A»0,16, 32, 48,64 

;last name doesn't need inserting 

; start with second last name 

; overwrite it with previous mm 



; until new high score 
lelemr this name 



#15 

CLRNAM 
PRINT 

$14 , 17 , 1 ."Congratulations , you may enter your name in the HISCOR 
$14, 17, 2, 'table. Enter your name (15 char, maximum) end with <CR 



LDX 



$14,30,4,', 

HITABLE 

PRINT 

$14,30,4,0 

#0 

COUNT 

TEMP 

WFKEY 

#$7F 

#RUB0UT 

TNEXT 

COUNT 



,$14,1,6,0 



; table pointer 

;get key 

;is it RUBOUT? 

;no, test if ASCII 
;at start of line? 
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68 
69 
70 

71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 

93 
f# 

95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 

lis 

119 
120 



BEQ 
DEY 
DEC 
IDA 
STA 
JSR 
fee 
JMP 

RBELL LDA 
JSR 

JMP 

TNEXT CMP 
BEQ 
CMP 
BCC 
LDX 
CPX 
BNE 
JMP 

SGHAR STA 
JSR 
INY 
INC 
JMP 



RBELL 

COUNT 

#' ' 

NAMES, Y 

PRINT 

8, '.',8,0 

GNAME 

ii^BELL 

OUTCHJit 

GNAME 

#CR 

QUEST 

#32 

GNAMI 

COUNT 

#15 

SCHAR 

RBELL 

NAMES, Y 

OUTCHAR 

COUNT 
GNAME 



Ask for another gaiae 



QUEST 



JSR 
fee 
JSR 
JSR 
fee 
JSR 
AND 
CMP 
BEQ 
CMP 
BNE 
JMP 



;yes, then ring bell 

;else clear previous character 



;in table 
;also on screen 
;ring bell 

;when at start of lim 

; or buffer full 
; RETURN entered? 
;yes, exit name input 
; control key? 
;ye8, ignore it 

;buffer full? 

;no, continue 

;ring bell to warn user 

jetore character in table 

;and print it 

;incr* both pointi^ mi. emec&imt 



;show new name in table 



PRINT 
$14,1,6,0 
HITABLE 
PRINT 

$14, 25, 4, 'Do yott vant to play a^aXn (y/n) ? ',BELL,0 

WFKEY 

#%01011111 

#'N' 

DOS 

#'Y' 

QUEST ; error in input 

START 



; Because the KEYIN without wait is used, the screen-off timer is updated, but 

; not executed, the result is that the screen switches off when you've played 

; more than DPTIME seconds and return to DOS. To prevent this the TOUTx timer 

; is reset to default before exit. 



DOS 



LDA 
LDX 
STA 
STX 
LDA 
STA 
JMP 



TOUTIL 

TOUTIH 

TOUTL 

TOUTH 

#$FF 

TOUTF 

CLS 



; reset sereen-off timer 



; clear screen and return to 1X)S65 
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DO; 



to _J 



C_' cs IT- ri & t- 



* * 

* G A M E - L I B R A R Y s 1 N S T R 0 G .MA C * 

* * 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 

12 
13 
14 
15 
16 
17 
18 



; GAME dependent, include in main and change it there (see DEMO .MAC) 



INSTRtJC show instrttctlons and eoatrol keys on screen 

Input : None 
Output: Instructioni 
Destroys: A|X|Y 

Galls: SBWKEf shoir ebntrol keys 

WFUSER wait for space-%ar wUk i^ssage (KEY.MAG file) 
CLS clear screen 



INSTRUC JSR 
JSR 
fee 
JSR 

RTITLE JSR 

RTS 



CLS ; clear screen 

PRINT 

'<put instructions here>' ,0 
SHWKEY ;8how control keys 

wvwm. 



******************************************************** 

* * 

* G A « E - L I B R A R Y i R A N D 0 M . M A G * 

* * 
**#**A****************^^ 



1 
2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



RANDOM 



RANDOM 



Input : 
Output : 



simulates a random number generator using a 24 bits shift 
register. 

N.B. at least one of the RND bytes should be initialized 
before RANDOM is called (any number <> 0 will do) 

RND,RND+i,RND+2 

A (8 bits RND number) 



RND 



Destoys 


: A 


Calls: 


none 


IDA 


RND 


AND 


#$48 


ADG 


#$38 


ASLA 




ASU 




RDL 


RND 


ROL 


RND+1 


BOX. 


RND+2 


IDA 


mm 


RTS 




res 


3,1 



; simulate random numbers 
jwith 24 bits shift register 



(Wordt vervolgd) 

NB« De listings zijn niet met de assembler geproduceerd maar met tekstverwerkers. De 
getoonde layout kan dus niet met een assembler-switch ingesteld worden. 
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Kaialogus DQS5§ software 



©CJfSS «tm i.O dlv iitilitlts, ^elen en C eonipUef ( zoiider handl > 

ISO pascal compiler irikiusief dokumentatlt 

Small C compiler incl manual op papier 

FORTH inklusief editor, assembler en dokumentatie 

DOS65 entries disk + manual op papier 

Astrid datakomunikatie pakket inklusief viditel ( 3 disks ) 
fermft datakomunikatie pakket inklusief dokumentatie 

Uit de volgende files kunt u zelf uw programma s uitzoeken. 
Prijs F 7.50 per schijf 



16,- 

25, ~ 
35,- 
15,- 
35,- 
25.- 
2i.- 



DOBBEL,BAS 

PIN AN. B AS 

HANOI. BAS 

HHBOEK.BAS 

YATSE.BAS 

STARTRKK.BAS 

KLOK.BAiS 

WORLOTIl.BAS 

K1LLMAN.BAS 

SORTKH.BAS 

OTHELLO. BAS 

LETPLZ.BAS 

BRUTONET.NOS 

F'Rl ITMACH.'j 

numwis.nos 
war(;ames.bas 
plot. demo 

TELE 

BABIES 

BABIES. DOC 

STOWAWAY 

STOt.DQC 

USLRPATOR 

LSUR.DOC 

NORGRAPH 

SEARCH 

CRTC 

SETCRTT^ 

GDP 

TIMEDATE 

LASIC0.D65 

SCR ED 52 

TAPE 

l.TAB 

STAB 

RR 



Basicode-2 subroutines voor DOS65 basic 2.00 

l>orbbeleft nvet je comptitier 

Financieel programma 

De torens van Hanoi 

ifoudt hiermee uw huishouding bij 

Het bekende spel yaise met de comiuiter 

Speeiv de rol van captain Kirk en vernieti^; de klinkonen 

Maakt de tijd groot zichlbaar 

Vraa^t de tijd op van bijvoorbeeld China 

Psychoiogisclte test 

Sorteert A,B,C en D's 

Speelt Othello te^en de computer 

Stelt zelf je speurpuzzei samen 

Berekening nettaloott in baslcode-2 

Spelletje in basicode-ii 

Integreren. differentieren in basicode-2 

Laat je hayesmodem modems to^lcen ( GWBASIC ) 

Grafisch scherm voor DOS65 mei 6845 VDU en viditel ehar.gen. 

Telefoonkiapper pakket met dokomentatie 

Een videospeiletje voor DOS65 

litleg bij babies 

Een videospelletje voor D0S65 

LMtleg bij stowaway 

Schaakprogramma 

Handleiding voor usurpator 

Cansel graphie & ittwree itiode 

Zoekt in ASCII files riaar strings 

Utility voor het veranderen van de registers van de 6845 
Zet de veranaerde registers opnieuw in de 684rl 
Tekenprogrammatje voor de grafische kaart vau Eiektuur 
Vraagt om de tijd een datum ( voor in login.coiii ) 
Toelichting basicode-2 met DOS66 
Screeneditor voor DOS65 basic- V2.00 
8asimde~2 lees/schrljf programma 
Load tab posities voor ED 
SavL^ tab posities voor ED 

Renumber utility voor basic programma szie 6502 kenner 56 



Deze lijst wdttt steeds bijgewerki. Voor de meest update lijsl met 
software kunt u het beste op het bulleiinboard kijken. U kunt de 
software daar downloaden of bestellen bij de DOS65 coordinator. Indien 
n geen modem heeft dan kunt u een lijst aanvragen bij de DOS65 
coordinator ( we I evpn een envelop met postzegel bijsJuiten a.u.b. ) 
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VIDEO ROUTINES VOOR DOS-65. 



De onderstaaude is een zogenaamde "HEADER"-f ile voor de DOS-65 Small C-compiler. Met 
deze file kan men in DOS-65 een aantal video-routines aanroepen. 

Het bijbehorende demo programma (DEMO.C) geeft enkele voorbeelden voor het gebruik van 
de routines* 

De twee files z±Sm g^download vanaf het bulletin boari |©SI^303902)* 

/* File: video. h */ 
/ ic^^^ __^„„„ .—^^if / 

/sfe Stefell € wideo control routines for 1065/DOS65 system ^/ 

/* tiritten by A.Megens spring 1987 */ 

/* */ 

GlsO 

{ printf ('«\014*'5i| ) formfeed */ 

inverse ) 

{ printf ("\033i"); } /* ESC 1 */ 
normal ( ) 

{ pxintf ("\Q33n"); } /* ESC n */ 

graf on( ) 

{ printf C'\033F"); } /* ESC F */ 
graf off C) 

{ printf(^'\033G"); I /* ESC 6 */ 
belK) 

I fi:iiitf ("\0O7"); } BELL */ 

homeC ) 

{ prtntf("\Q34"); } HOME */ 

crlf () 

{ printf("\n\r"); } /* CRLF */ 

xcrlf (n) /* multiple CRLF */ 

int n; 

{ while (n~) printf("\n\r"); } 

/* */ 

/* gotoxy(x,y) - cursor to coordinate x,y. The function is aborted with */ 

/* return value 0 when x or y are out of range • */ 

*/ 

gotoxy(x,y) 
char X J y J 

{ if ((x<0) I (x>79) I (y<0) I (y>25)) return(O); /* if error return 0, abort */ 

/* „^ 

/* due to a bug in the direct cursor addressing mechanism with "T ($14) */ 
/* (error in D0S65 when X or f is 13 (CR)) hmm msmMy eoda iM ute4, */ 
/* instead of the much simpler: */ 
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/* printf ("\024%c%c*%x,y) ; */ 
/ * ^^^^^^ ^ */ 

//asm 

Idc.u 0 ;get first argument (small C macro) 

pha ;save on stack 

ldc«u 2 ;get second argument 

tay ;in Y-reg. 

pla ;getsta ck-value 

tax ;in X-reg. 

jsr $F024 ;I065 routine (goto screen coordinate K^) 

//endasm 

return( l) ; /* no errors , fei^^pa 1 */ 



} 



/* V 

/* square(x,y,width, height) - draw a square width, height with upper */ 

left cotmer mt eo^irdlnate x,y */ 

/* The function is aborted with return value 0 ffltien the square does not */ 

/* fit on the screen. Else return value is !• */ 

/* */ 

square (x,y,width, height) 
int x,y , width, height ; 

{ int i; , , 

if ((x<l) I (width<l) I ((x+width)>79) I (y<l) | (height<l) | ( (y+height)>24) ) 

return(O) ; /* return 0 if error in arguments^ immMm */ 

graf on() ;gotoxy(x,y); 

printf ("P");for (i»l;i<width;i++) printf("X"); /* draw topllne */ 

printfC'V"); 

for (i=l ;i<height;i++) 

{ gotoxy(x,y+i);printf ("Y"); /* draw sides */ 

gotoxy(x+width,y+i) ;printf ("Y") ; 

} 

gotoxy(x,y+height) ;printf ("R") ; 

for (i=l;i<width;i++) printf ("X"); /* draw bottc^a */ 

printf ("r');grafoff 0; 

return(l) ; /* no error, return 1 */ 

} 



/* . . - 

/* File; deiEio«e ^/ 
y ^ ^ ^ ^ ^ — ^ — — , ^ */ 

/* Demo program for video routines in video .h */ 

/* */ 

/********#*^^^^^^^ 

^include video .h /* get library functions */ 

main( ) 
{ int i; 
char c; 

clsO; 

invers();printf ("\n\t\t\tDEMO SMALL C VIDEO ROUTINES\n\n") ;normal() ; 



f rintf ("\tNew routine#^ ^ll#C>, iia^e^sO, tioriaalO, grafotiO, graf off (),"); 
printf ("homeOAn"); 

printf ("\tbell() , crlf(), xcrlf(n), gotoxy(x,y), square(x,y , width, height) ."); 
xcrlf(2); 

printf C'\tnormal mode: eABCDEF-^ 7PQRSTUVWXY Z\n"); 
printf ("\tgrafic mode: "); 

firafonOlFrintf ("(a ABCDEF^?PQRSTUVWXY Z\n") ;graf off (); 

square( 1 , 1 , 78, 23) ; /* maximum width and height for square function */ 
square(65,7,l,l) ; /* smallest possible square (width=l, height=l) */ 
square ( 5 , 6,65 , 3 ) j 

/* fi|aat€ is not drawn when it does not fit on screen */ 
i^l * 

whiie (square(30-3*i,10+i,2*i+2,i+l)) i++; /* return value then 0 else 1 */ 

i=i; 

while (square(30+3*i,10+i,2*i+2,i+l)) i++; 

grafon();gotoxy(75,21)jprintf C'PWV"); /* grafic signature */ 
gotoxy(75,22) ;printf r#r*)rgrafoff {); 

gotoxy(45,ll);printf ("Press a key to exit."); 

bellO ;c«^tehar(); 

clsO; 

} 



Nieuw voor DQS-65: Een Pascal-compiler* 

Sinds kort bestaat er voor DOS- 6 5 een 
nieuwe compiler: ISO-Pascal ! 

Pascal is een taal die door Niklaus Wirth 
aan het EHT te Zbrich, Z wit ser land ontwik- 
keld is, Hij heeft fie tail Otttwlltkeld om 
zijn studenten op te leiden in het ge- 
structureerd programmeren. Nadien heeft de 
taal een grote vlucht genomen. Op bijna 
alle universiteiten en hogescholen wordt 
studenten geleerd in deze taal te program- 
meren. Verder zijn er al diverse commer- 
ciele toepassingen in Pascal geprogram- 
meerd. Een inleidend artikel over Pascal 
is gepubliceerd in de 6502 Kenner nr. 42. 

Sinds enkele jaren bestaat er een ISO- 
standaard voor Pascal. En sinds kort is er 
een compiler voor DOS-65 beschikbaar die 
de volledige ISO-standaard ondersteunt. 
Mt betekent dat in de taal alle zaken 
zoals poinf.ers, floating point getallen 
enzovoort wi>rkdmen* 



Aangezien het DOS-65 be lei d erop gericht 

is, ongeveer tegen kostprijs software te 
verspreiden, kunt u dit fantastische stuk 
software voor slechts f. 25, — bij Jan 
Derksen, de 005-65 coli^dinatpr bestellen# 
Voor dit (kleine) bedrag fcrl jgt u dan een 
schijf met daarop de compiler en de docu- 
mentatie. De documentatie is dus niet op 
papier verkr i j gbaar . Elders in dit blad 
vindt u een compleet overzicht van wat er 
^mM^mt Ian software voor DOS-65 beschik- 
baar ia*. ' 

Ik hoop dat de nieuwe Pascal-compiler voor 
u aanleiding is kopij in deze prachtige 
taal naar mij op te sturen. Mocht u overi- 
gens problemen hebben met het programmeren 
in Pascal, ook Ik heb tijdens mljn op lei- 
ding veel met de taal te maken gehad en 
verder programmeer ik voor mijn werk bijna 
dagelijks is Pascal. Als u vragen hebt, 
kunt u dus gerust contact met mij opnemen. 

Gert van Opbroek 
01729-8636 
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CISC EN RISC , wm JMMimm. 

Gert van Opbroek 
Bateweg 60 

2481 AN Woubrt:tgp^ CilltMiSi) 
Inleiding • 

In de diverse vakt i j dschrif ten, wordt er 
veelvuldig melding gemaakt van ipsDcessoren 
die gebaseerd zijn op het zo^mmsmiii^ RISC- 
concept. In dit artikel wil iM mmlgm as*- 
pecten van deze nieuwe ontwlkkeling be- 
lichten. 

In de eerste plaats is het waarschijnlijk 
z in vol de betekenis van de afkortingeia 
RISC en CISC te verduldelijteim* 

RISC is een afkorting van Reduced Instruc- 
tion Set Computer; dus een computer met 
een verminderd aantal instruct ies# 

CISC staat voor Complex Instiriie1:ioxi Set 
Computer, dus een computer met een gecom- 
pliceerde set instructies. 

Van beide types zijn er in het aanbod van 
de diverse f abrlksintefi vdotbi&eldeti te 
vinden. Voorbeelden voor CISC-processoren 
zijn onder andere de 68x00 en 80x86, dus 
die processoren die momenteel algemeen 
toegepast worden. Als voorbeeld voor RISC- 
process or en kunnen dienen: de ARM (Acorn 
Rise Machine) die in de Archimedes zit, de 
door Motorola aangekondigde MC88000, de AM 
29000 van AMD en de SPARC van Sun. Ook 
transputers (processors, speciaal bedoeld 
voor paralelle verwerking) kunnen we als 
RISC-processoren opvatten* 

Er zijn mensen, die de bekende 6502 opvat- 
ten als de eerste RISC-processor. Kijken 
we naar de architectuur van de 6502, dan 
zijn er inderdaad motieven voor deze uit- 
spraak te vintem^ toeti eefcte^ ## 6502 
out worpen werd, best ond het begrip RISC 
nog niet eens, men bouwde een processor 
die met de toen geldende tetahmol^gle biet 
maximaal haalbare was. 

Hiai:i%irlscbe ontwikkellng. 

In Byte [1] beschrijft Pete Wilson het 
ontstaan van de diverse architecturen van 
microprocessors. Uitgangspunt voor zijn 
verhaal vormt de stand van de technische 
ontwikkelingen op het motttetit dat mm be- 
paalde processor ontwikkeld werd. Al met 
al een zeer leesbaar verhaal dat voor mij 
een heel nieuw licht op deze zaak wierp. 

In de beglntijd van de microprocessor, had 
men de technologie om een chip met maxi- 



maal 10.000 transistors te ontwerpen en te 
producer en. Met deze lO.OOO transistors 
hi^isft «»ti een processor febouwi He mm 
veel mogelijk aan de toen geldende wens^ 
voldeed. Een tweede gevolg van de eenvou- 
dige technologie was dat geheugen duur 
was. (De pioniers in onze club weten mis- 
schien nog wel wat de 2102, 1024 bits 
statlsch geheugen in een IC, koste). Een 
en ander heef t geleid tot microprocessors 
met elgenschappen zoals de 6502: 

Een minimum aan registers. 

- Een adresseerberelk van 64 kb« 

^ Een 8 bits opcode (want 256 instruc- 
ties was meer dai^ genoeg)* 

Geen gas^^lif liefer de rekeninst ructies 
zoals vermenigvuldigen en delen* 

Cm toch nog zoveel mogelijk met de tran- 
sistoren en het beschikbare geheugen te 
kunnen doen , heef t , met name de 6502, een 
aantal zeer slimme elgenschappen: 

Een accumulerend register (ACCU) met 
LOAD en STORE instructies. Dit heeft 

als voordeel dat , bij voorbeeld bij 
een optelling, slechts een van de 
twee operanden uit het geheugen ge- 
haald hoef t te worden. Daar het re- 
sultaat ook weer in de ACCU terecht 
komt, spaart dit ook weer een geheu- 
gen benadering (memory access) uit. 

Indirecte adressering via pagina 0. 
Dit betekeftt dat in het programma 
slechts een ^en byte verwijzing naar 
een locatie binnen de laagste 256 
geheugenlocat ie s staat. Op deze 
plaats staat dan het volledige twee 
%f%ai Hdres van de operand. Op dez^e 
manler kan men op eenvoudige w 1 j 2se 
datastructuren benaderen. 

^ Indexering. Om de zaken nog wat ge- 
makkelijker hanteerbaar te maken, 
heeft men ook nog een indexering op 
de indirecte adressering toegepast. 
Dit zelf s op twee manieren. Bij de 
eerste, wordt de inhoud van het 
index-register opgeteld bij de ver- 
wijzing naar pagina 0 in het program- 
ma (derde plaats vanaf adres 7). De. 
inhoud van deze en dm valgexXide ipc«i- 
tie op pagina 0 geeft het adres van 
de operand. Bij de tweede wordt de 
inhoud van het index-register opge- 
teld bij het adres dat op pagina 0 in 
het geheugen staat (ga naar de loca- 
tie 10 bytes van het adres in locatie 
3 en 4). 
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- Omdat men de benadering van pagina 0 
middels een byte toch al had, heeft 
ook de rechtstreekse adressering 
-mm m^xmdm op pagina 0 middels een 
tw^e hytB Ittsttratftle gelmpletnenteerd. 
Verder heeft men ook een idexering op 
■ de absolute en pagina 0 adressering 
tcwigestaaii* 

Sr iiG^EiiC mmm b^^^ard, dat de tHii mm 
|rfg#|i|;pif is ittet ruim 256 registers. In 
zekere izlfi is dit ook wel zo. Mensen die 
op bijvoorbeeld de PDP-11 gewerkt hebben 
of op een machine, gebaseerd op de 68000, 
weten waarschijnlijk wat hiermee bedoeld 
wordt. Een register kan men opvatten als 
Imk t^t stii^l geheugenv Bovendien kan men 
over het algemeen met vrij korte instruc- 
ties een register benaderen. In de prak- 
tijk worden dan ook de veel gebruikte 
varlabelen en pointers naar datastructuren 
In iie f%fts^t:eti i^wit^ lit f^lit natuur- 
lijk met name voor de pif^ig^^i^^ in 
assembler maar ook in ^(T heeft men de 
mogelijkheid door de keuze van zogenaamde 
register-variabelen het gebruik van regis- 
ters te optimaliseren. Als we naar lift 
inai^^tiiitiii. m imt programmaerm^l wn 
de 850t kip:ens'a^n lijken dm lm§mim9' mf 
pagina 0 heel veel op fts^ W^B^iMtmwm mm 
bijvoorbeeld een 68000« 

11© mensen, die veel op de 6502 in assem- 
1bler programmereti kwnnen ook het grote 
nadeel van het pagina 0 concept. Aangezien 
iedereen tracht zoveel mogelijk van de 
variabelen op pagina 0 onder te brengen, 
betekent dit vaak dat vrije ruimte op 
pagina 0 schaars is. Als er dan bovendien 
liog routines voor het afhandelem vmn in- 
terrupts zijn, dan wordt het helewaal 
dringen op pagina 0. Bij een processor met 
zo'n 16 registers is het gebruikelijk in 
to"n geval enkele registers op de stack te 
ichrijven maMX bij 256 registers is dit 
#ndoenlijfcj 1&«endien Is iiiJ ^ft^cjfc van de 
^502 ook sleehts 25$ ^te gtmt*^^** 

Een zeer fraaie oplossing zou het invoeren 
van een zogenaamd direct page register 
zijn. In dit registet #taat een adres en 
op dit adres begint pagina 0. Gaat men dan 
naar een ander deel van het programma, dan 
verandert men de inhoud van dit register 
en zie daar, men heeft weer 256 nieuwe 
pagina 0 bytes. Processoren met een derge- 
lijke architectuur zijn inderdaad ontwik- 
keld (bijvoorbeeld de 65816). 

Bij de 6502 wordt de snelheid van een 
computer voornamelijk bepaald door de 
snelheid waarmee gegevens van en naar het 
geheugen getr^Hsf^orteerd worden. Toen de 
technologie wat verder was en er chips 



gemaakt konden worden met zo'n 30.000 
transistoren, heeft men onder andere hier 
lets aan proberen te doen, De snelheid van 
van de computer kan men op drie manieren 
verbeteren: 

Sneller geheugen. Was in de begintijd 
de toegangstijd tot het geheugen 
ongeveer 500 ns, momenteel is die 
tljd al teruggelopen tot ongeveer 100 
ns of mmMm nog miaclejrr Tpch geldt 
nog steeds dat de snelheid v#ft een 
systeem voor een belangrijk deel 
bepaald wordt door de snelheid van 
het geheugen^ 

Meer inf ormatie per memory-access 
transporteren. Men ging over van 
systemen die 8 bits per memory-access 
binnenhaalden naar systemen die in 
een keer 16 of zelf s 32 bits op kun- 
nen halen of weg kunnen schrijven. 

Minder vaak het geheugen benaderen. 

Dit betekent dat men probeert meer 
informatie in de processor te bewaren 
hetgeen dus leidt naar t^gls- 
ters of lets dergelijks. 

Bij de 6502 en aanverwante systemen bleek 
bovendien de hoeveelheid geheugen dat 
geadresseerd kon worden een beperking. De 
programma's werden steeds groter en groter 
en het geheugen werd steeds goedkoper. 
(Tegenwoordig kost een megabyte aan geheu- 
gen ongeveer net zoveel als vroeger een 
kilobyte) . Een van de methoden om dat pp 
te lossen is het invoeren van een "PAGE*'- 
register. Het geheugen is opgebouwd uit 
pagina" s van een bepaalde grootte (bij- 
voorbeeld ^64 kb). In het progira^ma wordt 
dan met een twee-byte adres een locatie 
binnen deze pagina aangegeven. Door bij 
dit adres de inhoud van het page-register 
op te tellen, krijgen we het werkelijke 
absolute adtes« Wmm techniek doet heel 
veel denken aan de zojuist beschreven 
techniek van het direct page register. In 
wezen is het ook hetzelfde met dit ver- 
schil dat het direct page register uit- 
sluitend betrekking heeft op de data ter- 
wijl het page register betrekking kan 
hebben op zowel code als datu* le 65816 
maakt dan ook gebruik van beidii technieken 
terwijl men op de meer moderne versies van 
de PDP-11 nog een stap verder is gegaan. 
De programmeur heeft twee gescheiden 
adresruimten tot zijn beschikking. De 
eerste is alleen bedoeld voor data, de 
tweede is in principe uitsluitend voor 
programmaregels (code). Deze twee adres- 
ruimten hebben beide een eigen page-regis- 
ter. 
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Met zo^n 30.000 transistoren kunnen we een 
processor maken zoals bi j voorbee Id de 
8086. Deze processor heeft 16 bits regis- 
ters, een 16 bits databus en benadert het 
geheugen mlddels een f iig^e^ t<Bgl#t ev. 

Een groot nadeel van het adresseren van 
het geheugen via een page-register is het 
feit dat programma-segmenten en datastruc- 
turen nooit groter mogen zijn dan 64 kb. 
De auteur heeft ooit eens een keer een 
groot systeem geprgrammeerd op een PDP- 
11/24. Deze machine werkt ook met een 
page-register waarbij de beperking zodanig 
is dat de geheugenruimte voor het program- 
ma + de data nooit groter mag worden dan 
i4 Itb (voor de Insiders: op de 11/24 Is 
een scheiding t us sen I*- en D- rtiiilt# 
mogelijk). Bovendien t^ais van deze 64 kb al 
de helft gereserveerd voor zgn. common 
dat ast ructuren. Dit betekende dat toch 
vrij omv|Mpil|feS l^^lMmiM'iim^^Waimsr s in 
32 kb get uE^giiiiiaeerd moesten irnirden (in 
pascal). Eeti Hogelijke opldsstng voor 
dergelijke problemen is het werken met 
overlays. Dit houdt in dat het programma 
opgedeeld wordt in een aantal stukken die 
noQit gelijktijdig door de processor bena- 
der-f lioeTeti te w€>rdeis# foor elk stuk is 
dan, samen met de data, de genoemde 64 kb 
beschikbaar. Nou, deze techniek heeft ons 
toen heel wat hoofdbrekens gekost. In een 
geval bestond het programma uit 23 ! ver- 
schillende Wittifii« 

Na verloop van tijd, werd het mogelijk nog 
meer transistoren op een chip te krijgen. 
De chip van de 68000 bevat bijvoorbeeld 
zo'n 70.000 transistoren. Wat heeft men 
daar zoal mee gedaan? In de eerste plaats 
heeft liei! e&n #e®tl#n^il legist ers gedef i- 
nieerd van elk 32 bits. Deze registers 
zljn opgedeeld in 8 adres- en 8 dataregis- 
ters. De dat aregist er s zijn uiteraard 
bestemd voor data, de adresregisters kun- 
lien goed gebruikt worden voor het doen van 
ad r e s b e rekenitxgem* U^X gedoe met pja^e- 
registers is odk nlet laeer nodig, de 68^00 
kan direct 32 adresbits aansturen hetgeen 
overeenkomt met lets van twee gigabyte. 
Weliswaar zijn op de 68000 slechts 24 
sites bits daadwerkelijk naar buiten ge- 
voerd (nog altijd goed ¥^Wt 16 Ml> doch 
bij de 68012 kan men al gebruik maken van 
het hele geheugenbereik. Verder heeft men 
het aantal instruct ies flink opgevoerd. Er 
zijn instruct ies voor vermenigvuldigen en 
isl^ii, ■4i^#<i'i!*s« m^imwm ^airith-aetische en 
logische instructi^i) t#tt mMntal mm^^ 
Instructles en zelf s een for-loop. Ook het 
aantal adresseermogeli j kheden is groter 
dan bij de 6502. Bovendien kan men bij de 
;m#aste instructies aangeven of men een 
operand van 8, 16 of zelf s 32 bits wil 



benaderen • 

Een summiere beschrijving van de 68000 
staat in mijn artikel in de 6502 Kenner 
nr. 45 [2]. 

Nattiurlijk zljn er aan het on twerp van de 

68000 ook nadelen verbonden. In de eerste 
plaats is daar het feit van het aantal 
instructies. Cm het grote aantal verschil- 
lende instructies, met alle mogelijke 
cbifl%ltiatles van registers, adresse€ir«Okge*- 
lijkheden en lengten van operanden te 
kunnen coderen, heeft de 68000 16 bits 
nodig. Bij de meeste instructies komen 
daar nog twee byte bij om een operand te 
bereiken; dit kunnen er echter ook vier 
Hijlit JSeia^ instruct ie bestaat dus uit mini- 
maal 2 byte en maximaal 6 byte. (Bij di 
6502 is dit de toitlft l)# 

Een t weede nadeel zien we bij een inter'- 
rupt. Omdat de 68000 16 registers he#£fc> 
moet men bij een interrupt efi rmsk ©oSk Mj 
een subroutine 15 registers op de stack 
redden (de zestiende is de st ackpointer ; 
die niet gered hoeft te worden). Dit zijn 
in totaal 60 byte en dus bij een 16 bits 
databus 30 schrijf operaties aan het begia 
van de routine en 30 leesoperaties aan 
einde. Bij een 6502 heeft men slechts 3 
registers plus een stackpointer en kan men 
dit klusje in drie schrijf- en drie lees- 
operaties klaren. 

Een derde tiadeel llgt le^s mifideif mm it 
hand. Omdat men een zeer groot aantal 
instructies heeft, heeft men in de proces- 
sor weer een processor gebouwd met daarbij 
voor elke instructie een stukje programma. 
Dit prog^rmiiia heet microcode. Omdat men 
veel instructies heeft, heeft men dus ook 
veel microcode nodig en bovendien bij 
gecompliceerde instructies veel tijd om 
deze code uit te voeren. Bij de 6502 duurt 
de langste instructie 7 klokpulsen, een 
gemiddelde instructie 3 of 4 klokpulsen. 
Bij de 68000 kati het aantal klokpulsM 
oplopen tot meer dan 100. Een gemiddelde 
instructie duurt zo'n 10 klokpulsen. 

De technologie heeft zich verder ont wik- 
keld» M^^memtmel kunnen er op een chip 
structuren gemaakt worden met af me ting en 
kleiner dan een micron. Op deze manier kan 
men nu lets van 200.000 transistoren op 
een chip kwijt. De vraag is nu wat we met 
al deze transistoren gaan doen. 

CISC hb^ liAg^irildceldeT hm beter. 

De ene weg waarlangs men bezig is is de 
ontwikkeling van nog gecompliceerdere pro- 
cessoren. Moment eel worden de 80386 en de 
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68020 in veel systemen toegepast. Het zijn 
beide processoren met een volledige 32 
iita' miwmm^ ^-4atabus, tIE Mti®^' m^Btexs 
en zeer geGompiceerde instructiesets. De 
68030 is als opvolger van de 68020 reeds 
verkrijgbaar. Deze processor heeft onder 
andere een geSntergreerde memory manage- 
tinit waaroi^ : ipei^. -ilit^ fl|ze 
multitasking operating sywtmm mmi^B 
WSSL iBiSt implementeren. Verder heeft Hfefco^ 
r'ola de 6B040 al aangekondigd* 



Voor- en nadelen van CISC-architecturen 

Zoals bij de bespreking van de 68000 al 
opgemerkt is, heeft een dergelijk ontwerp 
enkele meer of minder grote nadelen, Laten 
we de voor- en nadelen van de diverse 
ontwerpen eens op een rijtje zetten en 
proberen daar een afweging van te maken. 

De 6502 heeft als voordeel de eenvoudige 
opbouw van zijn instructieset • Met behulp 
van 8 bits kan men het volledige instruc- 
tieset inclusief alle adresseermogelijkhe- 
ilen coder en • 

Een tweede voordeel is het feit dat de 
diverse instruct ies weinig klokaycli nodig 
hebben voor hun uitvoering. 

•3m stap naar processors zoals de 8086 
bracht een 16 bits databus en meer en 

Het grote voordeel van de 68000 is zijn 

frote aantal registers met een breedte van 

nadeel dat ze geregeld in het geheugen 
gered moeten worden hetgeen veel extra 
heen en weer get r ansporteer van data in- 
houdt. Verder heeft de 68000 zijn grote, 
linealre gelieugen als voordeel* 

Kljken we naar de processoren van de cate- 
gorie 68020 dan zien we daar een scheiding 
van adresruimten voor code en data naar 
voren komen. Een van de pioniers op compu- 
te 3^gefeii^d| yon I}^i*maiiii, he^ft in zijn 
taa^i-tie tiet stof^ed prograiafm ontirerp uitge- 
vonden. Dit hield in dat het programma in 
het geheugen, net zo als de data, opgesla- 
gen werd. Dit betekende bovendien dat men 
aip de inhoud van een bepaald deel van het 
g^e^en niet kon mien of het code of data 
was. Slechts de inhoud van de program 
counter bepaalde of de inhoud van een 
locatie als code gebruikt werd. In dit 
concept was het dan ook zeer eenvoudig 
fei^^iltid# geheugengebieden afwisselend als 
code en als data op te vatten. Het begrip 
"Self Modifying Code" is toen ontstaan. In 
de tijd van Von Neumann was het volstrekt 



logisch een machine op die manier te ont- 
werpen. Tengenwoordig wordt wel gesproken 
van de "Von Nessiiawi Bott lenecir^* Alles 
(code en data) moet namelijk over §&i en 
dezelfde databus. Bovendien treedt er nog 
een ander probleem op. Er zijn tegenwoor- 
dig technieken om het geheugen veel snel- 
ler als normaal te benaderen, mits.... we 
meerdere op S&ivolgende plaatsen achter 
elkaar benaderen. Aangezien tegewoordig 
code- en datagebieden volstrekt gesheiden 
zijn, benaderen we in de praktijk afwisse- 
lend geheugen in het codegebied en in het 
datagebied. Dit pleit dus voor een schei- 
ding tussen deze twee gel»iedem« Er zijn 
momenteel zelfs al proceiSSOfen aangekon- 
digd die hierom twee adries- en twee data- 
bussen hebben (Harvard Architectuur , in 
tegenstelling tot de Von Neumann Architec- 
tuur) • 

Waarom zijn tegenwoordig code- en datage- 
bieden volstrekt gescheiden? In de eerste 
plaats heeft dit te maken met het, moder- 
ne, gestructureerd programmeren. Men legt 
hierbij in het begin van de module (sub- 
W$mtlLim #f f ipogrammasegment) vast welke 
data men wil gebruikem iimacfita ie code ¥an 
de module volgt. Een taal als fiscal Is 
hiervan een duidelijk voorbeeld, in tegen- 
stelling tot bijvoorbeeld Basic waarbij 
data midden in het programma ontstaat. Een 
tweede reden heeft te maken met multitas- 
king en multiuser. Als er itteet*d^re gebrui- 
kers (users) tegelijk gebruik maken van 
dezelfde computer kunnen ze toch allemaal 
hetzelfde programma (task) gebruiken, bij- 
voorbeeld de editor. Om een prograiama te 
tamen gebruiken, moet hlj geladen iijn in 
het geheugen. Als er tien users zijn die 
alien de editor gebruiken, hoeft het pro- 
gramma zelf toch slechts een keer aanwezig 
zijn. Wel moet iedere user zijn eigen data 
hebben. Door nu in het progtaniaa Hi code 
en de data te scheiden, kan men de code 
§§n maal ift feet geheugen hebben terwijl 
iedere user zijn eigen datagebied heeft. 

Machines zoals de 6502, de 8086 en de 
68000 hebben als nadeel dat hun snelheid 
afhankelijk Is van de snelheid van het 
geheugen. Bij de 68020 en de 68030 is dit 
voor een deel opgelost door op de chip een 
beperkt, snel geheugen te maken. In dit 
zogenaamde cache-geheugen kan code en data 
gedurende langere tijd bewaard bll jven 
zodat ze snel gelezen kan worden. Gaat men 
echter in dit gebied schrijven, dan moet 
de wijziging toch in het geheugen aange- 
bracht worden. 

De 8086-achtige machines hebben als groot 
nadeel hun page-register. 6tote(re) data- 
structuren en programmasegmenten kunnen 
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Bij de 68000 lijkt de omvang van het in- 
structieset een voordeel. Is dat eigenlijk 
wel zo? In de eerste plaats kost het deco- 
deren van een instructie relatief veel 
tijd. In de tweede plaats kost de uitvoe- 
rliif van de meer gecompllceiitie toetfijc^- 
ties zeer veel tijd. En in de derde 
plaats, hoe vaak gebruiken we eigenlijk 
een unsigned divide instructie? 

RISC: Bacdc to nature f 

Op basis Ibef im6t§smde we Mife 

eens een processor trachten te ontwerpen. 

We nemen een processor en zorgen er voor 
dat deze een beperkt aantal eenvoudige 
instruct ies leeft tie dan wel allemaal in 
zeer weinig klokcycli uit te voeren zijn» 
In de onderstaande tabel staan de instruc- 
tie s van de ARM, het hard van de AECHIMl^ 
DUS. (Bron [3]). 



1 - De registerinstructles 

ADD Optellen 

ADC Optellen met oamf 

SUB Aftrekken 

RSB Omgekeerd aftrekken 

SBC Aftrekken met carry 

RSC Omgekeerd aftrekken met carry 

AND Logische and van twee registers 

EOR Logiiche excluisi^ m 

ORR Logische or 

BIG Bepaalde bits nul maken 

CMP Vergelijk 

CMN Vergelijk negatief 

TST Test of beide 1 zijn 

TEQ Test of beide gelijk zijn 

MOV Verplaats ' 

MVN Verplaats negatief 

MUL Vermenigvuldig 

MLA Vermenigvuldig met optelling 

2 - de geheugeili.fi#rflfeli^ 

STR Store register 

LDR Load register 

STM Store meerdere registers 

mm Load wmetSmm m^mmm 

3 - de sp r ong inist ruct ies 

B Spring 

BL Spring en onthoud waar je 

vandaan komt 

W% Software interrupt 



Verder nemen we ook het accumulator con*- 
cept de 6502 oyer* Elke instruQtie uit 
de 'eer^^ groep wer%t iftli^ii op reglitefi* 
Bij de ARM kent een ADD-inst ruct ie drie 
operanden: de twee registers die bij el- 
kaar opgeteld moeten worden en een derde 
register waar het resultaat naar toe moet. 
Het benaderen van het geheugen kan alleem 
via 4e LOAD en STORE instrueties. V^r<ter 
heel'fe de ARM nog een tweet al gltmiie toe*-- 
voegingen : 

- Bij een instructie kan men aangeven 
onder welke voorwaarde de instructie 
uitgevoetd mdet worden. 

- Men kan opgeven dat de tweede operand 
van de bewerking eerst nog een 
schuif operatie moet ondergaan. 

Uit [3] komt het volgende voorbeeld: 



zou er op een ARM als volgt uit kunnen 
zien: 

CMP r 1,5 000 vergelijk regisliif I 
met 5000 

als aan de voorgaande 
vergelijking voldaan 
is, tel dan rl bij 
vier maal rl op; het 
resultaat komt in rl* 

Zowel de vergelijk- als de optelinstructie 

worden op de ARM in e§n klokcyclus uitge- 
voerd. Dit geldt trouwens voor alle in- 

De snelheid waarinee de Mitructles uitge- 
voerd kunnen worden wordt veroorzaakt door 
het feit dat de instrueties niet in micro- 
code maar in echte transistoren etc. uit- 
gevoerd zijn (dit kan bij weinig instrue- 
ties). Bovendien heeft de ARM een vorm van 
pipelineimg; de eerste instructie wordt 
uitgevoerd terwljl de ewefede gedeeba^erd 
en de derde uit het geheugen ingelezen 
wordt. Kenmerk van alle RISC architecturen 
Is de eenvoud van de instruct ieset . De 
processor bezit slechts weinig instrueties 
mlE^r tfeze ^sAf^ iml 20 fetiei '•eii''iteriiel^ig i«t 
men met dit kleine aantal instrueties op 
eenvoudige wijze subroutines voor gecom- 

pMmmM of g^ir^ Item. 'iBusfei^ 

Van de mmm we 4m |i#eedte van de 

databus en de registers over: 32 bits. 
Gaan we echt veelvuldig met floating point 
get alien aan de slag, dan valt 64 bits ook 
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te overwegen. (De ARM heeft BmL $2 bits 
databus). Ook de adresbus moet "^an vol- 
doencie omvaiag zijn (bij de ARM 26 bits)# 

En tenslotte de registers. Veel registers 
zi^u kau^dJlf n^mis^ we dma welnig LOAD en 
STORE operatieis van en naar het voor de 
processor zo trage geheugen hoeven uit te 
voeren. Weinig registers heeft als voor- 
deel dat we bij een subroutine of inter- 
rupt welnig hoeven te redden. Op dit punt 
lie^fl men bij een aantal S;IS€*-process0ten 
(o.a» de SPARC van SUN) iets zeer slims 
bedacht. Voor een subroutine zijn een 
aantal (bi j voorbeeld 32) registers be- 
schikbaar. Een deel van de registers (in 
ons voorbeeld 10) zijii globaal en dus 
#veral, im eXkii isubroutine ta f ebruikeiii^ 
Beze zijn dus te vergelijken met de globa- 
le variabelen in een Pascal-programma, Een 
tweede deel (in ons voorbeeld 6) dient 
voor het doorgeven van parameters tuasen 
de subroutines. In de meeste meeste geval- 
l&n wordt daaifvddif de stack gebruikt het- 
geen weer memory access betekent. De be- 
langrijke parameters kunnen in dit concept 
dus per register doorgegeven worden. De 
rest van de registers is zuiver lokaal. 
Dit wil zeggen dat als we ntaar een ander 
iMLveau gaan (subroutine call of return) we 
een nieuw set registers krijgen. De pro- 
cessor heeft voldoende registers (in ons 
voorbeeld in totaal 132) om meerdere ni- 
iriiititi §i3^ij|ktijdig in registers op te 
slaan, dus zonder het tijdrovende redden 
en terughalen uit geheugen. Iti het genoem- 
de voorbeeld kan men tot 8 niveaus op- 
slaan. Gaat men nog dieper, hetgeen eigen- 
lijk niet voorkorat, dan worden er weer 
registers in het geheugen gered. Het voor- 
beeld is beschreven in [4]. 

Door op de hierboven beschreven manier een 
processor te ontwerpen, heeft men de twee 
meest wezenlijke zaken ondervangen. Men 
heeft in de eerste plaats de uitvoeriltgs^ 
tijd van de instruct ies drastiscb .W^tli fet 
beperken, Verder heeft men niet zoteBT de 
snelheid waarmee het geheugen benaderd kan 
worden vergroot als wel het aantal keren 
dat het geheugen benaderd wordt flink 
verkleind. Op deze manier is er een pro- 
cessor ont staan die zeer snel is. Dat een 
dergelijk ontwerp echt kan werken blijkt 
uit de volgende resultaten^ 

Met de BASlC-benchmarks van het engelse 
Mai "Personal Computer llirl4^ »ijtt als 
result at en verkregen: 

Apple Macintosh : 12 . 1 s 

IBM-PC: 17.6 s 

IBM-PC/ AT: 7.1 s 

ARM 0.7 s 



Daar de ARM zeker niet het meest geavan- 
ceerde op RISC-gebied is, is nu al wel 
duidelijk dat de RlSC-architecturen zeer 
veel in zich hebben en waarschijnlijk zeer 
geduchte concurrenten voor de CISC**archi-* 
tecturen zullen worden. 

Ook Motorola, als f abrikant van zeer ge- 
cpropllceftrde pxmmmMmxm,^ heeft een RISC 
arcWtectirar aangekotidigd. Deze processor 
zal waarschijnlijk begin 1989 beschikbaar 
komen. Het is de 88000 die tesamen met de 
memory-management chips 88100 en 88200 de 
processor gaan vormen. Deze processor 
heeft eigenlijk allei in zich wat in het 
voorgaande beschreven is; Een RISC in- 
structieset, een registerfile de Harvard 
architectuur met compleet gescheiden 
adres- en databussen. Bovendien heeft de 
88000 ook nog een floating-point unit die 
op dezelf de chip als de processor gebouwd 
is doch volledlg onaf hanke li j k , als copro- 
cessor zijn werk doet. De beschrijving van 
de 88000 en van de Am29000 van AMD kan men 
o.a, vinden in [5]. Bovendien bevat dit 
artikel interssante gegevens over moderne 
beiiade:^jl^it^tl^eken van gebeng^na. 
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0050 
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B95D33 


PRINTE 


LDA TABLEB.Y 


J 


PRINT JM FOUTMELDING 


0051 
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BEQ EPRINT 
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204323 




jm PRCHA 
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C8 




INY 
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4CD62A 




JMP PRINTE 
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EPRINT 


JMP UNLDBO) 


« 
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0058 


2m5 




, 








0059 


2AE5 




; 








0060 


2AE5 






* = $3350 






0061 


3350 




• 

9 








0062 


3350 


00 


TABLEA 


.BYT $00 




ERRl 


0063 


3351 


OD 




.BYT $0D 




> ERR2 


0064 


3352 


lA 




.BYT $1A 






0065 


3353 


2E 




.BYT $2E 




, ERRA 


0066 


3354 


46 




.BYT $46 




; ERR5 


0067 


3355 


51 




.BYT $51 




; ERR6 


0068 


3356 


61 




.BYT $61 




; ERR7 


0069 


3357 


6E 




.BYT $6E 




; ERRS 


0070 


3358 


7F 




.BYT $7F 




\ SSS» 


0071 


3359 


97 




.BYT $97 




; ERRA 


0072 


33 5A 


BO 




.BYT $B0 




; ERRB 


0073 


335B 


C2 




.BYT $C2 




; ERRC 


0074 


335C 


D5 




.BYT $D5 




; ERRD 


0075 


335D 
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0076 


335D 


5041 


TABLES 


.BYT 'PARITY ERROR' ,fOO 


0077 


336A 


5245 




.BYT 'REREAD ERROR' ,$00 


0078 


3377 


43414E 




.BYT 'CAN' ,$27, 




WRITE TRACK 0',$00 


mn 


33«» 


4449 




.BYT 'DISK IS iHtlft fiSTlGTED' ,$00 


0080 


33A3 


5345 




.BYT 'SEEK ERROR' 


,$00 


0081 


33AE 


4452 




.BYT 'DRIVE NOT 


READY' ,$00 


0082 


33BE 


5359 




.BYT 'SYNTAX ERROR* ,$0© 


0083 


33CB 


4241 




.BYT 'BAD TRACK 


NUMBER' ,$00 


0084 


33DC 


43414E 




.BYT 'CAN' ,$27, 


'T FIND TRACK HEADER', $00 


0085 


33F4 


43414E 




.BYT 'CAN' ,ff7. 


FIUD SECTOR HEADER', $00 


0086 


340D 


4241 




.BYT 'BAD SECTOR 


LENGTH' ,$00 


0087 


341F 


4649 




.BYT 'FILE DOESN' 


,$27,'T EXIST', $00 


0088 


3432 


522F 




.BYT 'R/W ATTEMPT PAST END OF FILE' ,$00 


0089 


344F 












0090 


344F 


8A 


ERREF 


TXA 






0091 


S450 


E90E 




SBC #$0E 






0092 


3452 


AA 




TAX 






0093 


3453 


BC6534 




LDY TABLEC ,X 






0094 


3456 


B96734 


PRINTF 


LDA TABLBJjT 






0095 


3459 


F007 




BEQ FPRINT 






0096 


345B 


204323 




JSR PRCHA 






0097 


345E 


08 




INY 






0098 


34 5F 


4C5634 




JMP PRINTF 






0099 


3462 


4C6127 


FPRINT 


JMP UNLDHD 






0100 


3465 












0101 


3465 


00 


TABLEC 


.BYT $00 




; ERSE 
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0102 


3466 


IC 




,BYT $1G ; 


ERRF 


0103 


3467 










0104 


3467 


4E4F 


TABLID 


.BYT 'NOT ENOUGH TRACKS AVAII,ABI.E' ,$00 


0105 


3483 


4449 




.BYT 'DIRECTORY FULL' ,$00 


0106 


3492 










0107 


3492 






.LOCAL 




0108 


3492 




5 






0109 


3492 






0110 


3492 




* * 

9 


=== DiR — mmm 


nm f *■ 


0111 


3492 






0112 


3492 




• 

3 






0113 


3492 




; Dit Is 


een uibreidlng op < 


le bestaande DI opdracht 


0114 


3492 




; van DOS V3.3 uitgebreid door Elektuur ($E5E1-E653) . 


0115 


3492 




; Nu za] 


. ook de 2e helft van de directory 


0116 


3492 




; worden getootid, EN WEL IN 4 KOLOMMEN NAAST ELKAAR* 


0117 


3492 










0118 


3492 




; DATE: 


MEI 1988, BERT VAN TIEL. 


0119 


3492 










0120 


3492 




; Noot van de redactie: 




0121 


3492 




; Om 


f ormaat-technische redenen, is de oorspronkelijke 


0122 


mm 




; versie, in Hld#o^M« f omaat , geconverteerd iiaar 


0123 


3492 




; het 


formaat van de Proton-a8sem|»ltfr, ook belcend ota^ier 


0124 


3492 




; de 


naam (Octo-)Fate. 




0125 






9 






0126 


3492 




I WIJZIGINGIN IN DOS 




0127 


3492 




9 






0118 


3492 




• 






0129 


3492 






* - $E5E1 




0130 


E5E1 




• 

1 






0131 


E5E1 




; * USED mmmms^wsmmm 


* 


0132 


E5E1 










0133 


E5E1 




PTR 


» $0010 




0134 


1511 




OSIIAD 


- $(mi ; 


fOIHTSt. T0 BOS BBFflR 


0135 


E5E1 




PRINT 


= $2343 ; 


mm moi* in accu 


0136 


E5E1 




SECTNM 


= $265E 




0137 


ESll 




DIl 


» ; 


DI UNDIR V3.3 (DIR/TRAOC) 


0138 


1511 




BULEN 


= $2CED ; 


cimEian: botfer lingth 


0139 


1511 




CRLF 


= $2D6A 




Olio 


1511 




SfROUT 


» $M73 5 




0141 


E5E1 




PRTAHX 


= $2D92 ; 


PRINT 2 CHAR. OF ACCU 


0142 


E5E1 




RDDIR 


= $E5C5 ; 


READ DIRECTORY FROM DISK 


0143 


ESll 
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0144 


E5E1 


4C292B 


NDIRY 


JMP DIR 




0145 


E5E4 


A002 


NEWDIR 


LDY #$02 




0146 


mm 


Bill 




LDA ,Y 




0147 


E5E8 


C90D 




CMP #$0D ; 




0148 


E5EA 


F007 




BEQ NDIRX 




©M^ 


151C 


AD1D2C 




LDA miN 




0150 


E5EF 


C902 




CMP #$02 




0151 


E5F1 


DOEE 




BNE NDIRY ; 


CHECK FOR DI UNDER V3.3 


0152 


1SF3 


20732D 


NDIRX 


JSR ST80UT 




0153 


1516 


OD 




.BYT $OD,$OA,'-»fiIR-^' ,$00 



0S65D EXTENSIONS 



PROTON 650X ASSEMBLER V4.4 PAGE: 0004 



0154 


E600 


206A2D 




JSR CRLF 


0155 


E6u3 


A201 




DDX #$01 


0156 


E605 


20C5E5 


NDIR6 


JSR RDDIR 


015/ 


E60o 


AZOO 




LDX fiF$00 


1 c o 


E60A 


AOOu 


NDIRA 


LDY #$00 


0159 


E60C 


4C9234 




JMP NDIRB 


Pit r\ 

01 oO 


E60F 


AOOO 


ILTTV T T» T» T» 

NDIRBB 


LDY #$00 


i^'t -'11 

0161 


E611 


BllO 


NDIRD 


LDA (PTR), Y 




E613 


204323 




JSR PRINT 


0163 


E6I6 


Co 




INY 


0164 


E617 


C006 




CPY #$06 


0165 


E619 


D0F6 




BNE NDIRD 


OlOQ 


E61B 


A o r\ 

A920 




LDA #^ " 


016/ 


E61u 


204323 




JSR PRINT 


0168 


E620 


BllO 




LDA (FIR) , Y 


0169 


E622 


O <^ O O TV 

20922D 




JSR PRTAHX 


01/0 


E625 


20732D 




JSR STROUT 


0171 


E628 


202D20 




#BYT ^ 'J-k 


01/2 


E62C 








1 "7 O 

0173 


E62C 


A007 




LDY #$07 


1 "7 / 

0174 


E62E 


BllO 




LDA (PTR) ,Y 


0175 


E630 


o r\ n o o TV 

20922D 




JSR PRTAHX 


0176 


E633 


O "7 O O TV 

20732D 




TOT* OmT»/^TTm 

JSR STROUT 


r\ 1 "7 "7 

017/ 


E636 






jpf^' ■ ■ 


n 1 "7 o 
Ul /o 


E63B 




> 




0179 


E63B 


18 


NDIRE 


CLC 


OloO 


E63C 


A510 




T TV A TMXITI 

LDA PTR 


A 1 O 1 

Olol 


E63E 


6908 




A TVO O 

ADC #$08 


Oloz 


E640 


o c 1 r\ 

8510 




O A Tl Mill 

STA PTR 


0183 


E642 


r\ r\ r\ 

9002 




BCC NDIRF 


0184 


E644 


Mil 




ING PTR+01 


0185 


E646 








0186 


E646 


r\ ~i c\ 

C979 




CMP #$79 


0187 


E648 


DOCO 




BNE NDIRA 


1 o o 

0188 


E64A 


A511 




LDA PTR+01 


0189 


E64C 


C92F 




CMP #$2F 


0190 


E64E 


DOBA 




BNE NDIRA 


0191 


E650 


20AD34 




JSR DIREXT 


0192 


E653 


60 




RTS 


n 1 o 0 


Ed 54 








0194 


E654 




; UITBREIDING 


0195 


E654 








0196 


E654 








0197 


E654 






* = $3492 


0198 


3492 




1 




0199 


3492 


BllO 


NDIRB 


LDA (PTR),Y 


0200 


3494 


C923 




CMP #'#' 


0201 


3496 


D008 




BNE NDIRC 


0202 


3498 


C8 




INY 


0203 


3499 


C006 




CPY #$06 


0204 


34fl 


eOF5 




BNE mtm 


0205 


349D 


4C3BE6 




JMP NDIRE 



; READ Dt^^Rt FROM DISK 



; ommi wtm name 



; OUTPUT TRACK RANGE 



; POINT TO NEXT ENTRY IN DIRECTORY 



I CHECK FOR END OF DIRECTORY 



; <3tEaC FOR WSrSt ENTRY 
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0206 


34A0 




9 


0207 


34A0 


E8 


NDIRC INX 


0208 


34A1 


E005 . 


CPX #$05 


0209 


34A3 


D005 


BNE RET 


0210 


34A5 


A201 


W ffOl 


0211 


34A7 


206 A2D 


JSR CRLF 


0212 


34AA 


4C0FE6 


RET JMP NDIRBB 


0213 


34AD 




> 


021A 


34AD 


206A2D 


DIREXT JSR CRLF 


0215 


34B0 


A202 


LDX #$02 ; X IS SECTOR 2 (TRACK 12) 


0216 


34B2 


EC5E26 


CPX SECTlM ; SECTOR 2 AL GEHAD? 


0217 


34B5 


D003 


BNE DEA ; NEE 


0218 


34B7 


4C6A2D 


JMP CRLF ; MAAK BESTAANDE ROUTINE AF 


0219 


34 BA 


4C05E6 DM JMP NDIRG : TOON 2E HELFT DIRECTORY 


0220 


34BD 






0221 


34BD 




• LOCAL 


0222 


34BD 






0223 


34BD 






0224 


34BD 




I * === PUT === EXTENSION 2 * 


0225 


34 BD 






0226 


34BD 






0227 


34 BD 




: DIT IS EEN AANVULLING OP DE BESTAANDE DO^PTTT FXT 


0228 


34BD 




; VAN ELEKTOUR. (|i4?C-E5AD) . - 


0229 


34 BD 




: HET IS HIERMEE MOGELIJK OM IN DE TWEFDF HFT FT VAN 


0230 


34BD 




; DE DIRECTORY ENTRY'S TE MAKEN DUS MAX. 64 I.P.V. 'M 


0231 


34BD 




; HIERVOOR ZUN OOK "DE FOUTMELINGEN IN WOORDEN*' 


0232 


34BD 




; AAliGEVUU). <ZIE DOS ERROS IN WOitM)« 


0233 


34BD 






0234 


34BD 




; DATE: MEI 1988, BERT VAN TIEL. 


0235 


34BD 




0236 


34 BD 




; Noot van de redactie: 


&m 


mm 




; Om formaat-technlsche redenen , Is de oorspronkelijke 


0238 


34 BD 




; versie, in Micro-Ade formaat, geconverteerd naar 


0239 


34BD 




; het formaat van de Proton-assembler, ook bekend onde 


0240 


34BO 




; de naam (Oc to-) Fate. 


0241 


34BD 






0242 


34 BD 




; WIJZIGINGEN IN DOS EXT. ELEKTUUR 


0M3 


34BD 






0244 


34 BD 






0245 


34BD 




* = $E52F 


mm 


I52F 


4CBD34 


JMP PUEXT 


0247 


E532 




* = $E5A4 


0248 


E5A4 


EA 


NOP 


0249 


E5A5 


EA 


NOP 


0250 


E5A6 


EA 


NOP 


0251 


E5A7 


EA 


NOP 


02S2 


mm 


EA 


NOP 


0253 


E5A9 






0254 


E5A9 




; * USED ADDRESSES/ ROUTINES * 


iSiS 


mm 






0256 


E5A9 




SECTNM = $265E ; SECTOR NUMBER 


0257 


E5A9 




PUEXE = $E4A7 
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0258 


E5Ay 




riKKiliiN i 




$2A4B 








0259 


E5A9 
















0260 


E5A9 






* 


« $34BD 








0261 


34BD 




9 












0262 


34BD 


A202 


PUEXT 


LDX #$02 








0263 


34 BF 


EC5E26 




CPX SECTNM 








0264 


34C2 


F003 




BEQ ERRF 








0265 


34C4 


4CA7E4 




JMP POEXE 








0266 


34C7 


A90F 


ERRjF 


LDA #$0F 


S 


IIROR #F 


0267 


34C9 


4C4B2A 




JMP ERRENT 








0268 


34CC 






.IND 








SYMBOL VALUE 














PRCHA 


02 


2343 


UNLDHD 


02 


2761 


rvc T?T> T) 

ObEKK 


02 


2AC4 


DISKER 02 


2ACA 


ERRTMD 


02 


2AD2 


PRINIE 


02 


2AD6 


EPRINT 02 


2AE2 


TAB L hi A 


02 


3350 




02 


335D 


ERREF 


02 


344F 


PRINTF 


02 


3456 


r rKiJNi 


02 


3462 


TABLEC 02 


3465 


TABLED 


02 


3467 


PTR 


03 


0010 


OSIBAD 03 


OOEl 


PRINT 


03 


2343 


SECTNM 


03 


265E 


DIR 


03 


2B29 


BULEN 


03 


2CED 


CRLF 


03 


2D6A 


STROUT 03 


2D73 


PRTAHX 


03 


2D92 


RDDIR 


03 


E5C5 


NDIRY 


03 


E5E1 


NEWDIR 


03 


E5E4 


N0I1X 


03 


E5F3 


NDIRG 


03 


E605 


NDIRA 


03 


E60A 


NDIRBB 


03 


E60F 


NDIRD 


03 


E611 


NDIRE 


03 


E63B 


NDIRE 


03 


m^k 


NDIRB 


03 


3492 


NDIRC 


03 


34 AO 


lEt 


03 


34 AA 


DIREXT 03 


34AD 


DEA 


03 


34 BA 


SECTNM 


04 


265E 


PUEXE 


04 


E4A7 


ERRENT 


04 


2A4B 


PUEXT 


04 


34BD 


ERRF 


04 


34C7 















In het kader van de wijziging van de 
doelstelling van de vereniging willen we 
in de komende Jaargto^ onder andere over 
de volgende anderiferpeii artikelen gaan 
schri jven: 

Single Chip processors. Dit artikel 
zal gepubliceerd worden naar aanlei- 
ding van de lezing van Adri Hankel in 
September 1988 in Haarlem* 

- De kwaliteit szorg van software. Dit 
artikel zal door Ruud Uphoff geschre- 
ven worden als samenvatting van zijn 
lezing op de bijeenkomst van mei 1988 
in Krimpen a«d. IJssel. 

- Programmeerbare hardware. Tegenwoor- 
dig zijn er niet alleen Eproms en 
EEproms maar ook PALlen en GALlen. 
Aan Nico de Vries is gevraagd hiero- 
ver een publicatie te schri jven. 



Grafische Pocessoren. Cert van 
Opbroek is van plan hierover binnen- 
kort een artikel te schrijven. Als 
aanvulling hierop, zou het zinvol 
li^a wat grafische software te plaat- 
sen; wie heef t er nog |.i|s of wil 
iets schrijven? 

Het formaat van floating point getal- 
len. Ook hierover wil Gert van 
Opbroek een artikel schrijven. Als 
hij voldoende tijd heeft, zal dit 
bovendien gepaard gaan met een floa- 
ting point pakket voor een Forth- 
systeem, draaiend op een 6502* 

De DOS-65 virtuele diskkaart. Deze 
kaart is al vaak aangekondigd maar 
bestaat nog steeds niet. Het probleetai 

zit hem in het aantal IC's dat op §en 
europrint ondegebracht moet worden. 
Het lijkt er echter toch op dat in de 
komende winter deze kaart echt be- 
schikbaar kotat. 
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KERMIT, het collll^I^micatieprogral^^ma^ 

Gert van Opbroek 

i^memg 60 

2481 AN Woubrugge 

01729-8636 

Inleiding* 

Bit artikel kan gezien worden als het 
vervolg op het artikel van Gert Klein in 
de 6502 Kenner numraer 54. In dat artikel 
wordt beschreven hoe het Kermit-protocol 
werkt. Daar het Kermit^|!^fl>€i©l meestal 
binnen het Kermit pragraiama gebruikt 
wordt, Mefbij een artikeltje waarlm dit 
programma besehreven wordt* 

Elk Kermit communicat ieprogramma onder- 
steunt voor de uitwisseling van files het 
Kermit pT0t«ol, het is eetiter niet sso, 
dat het Kermit protocol alleen in een 
Kermit communicatieprogramma voorkomt. Een 
goed voorbeeld hiervan is bijvoorbeeld 
OPUS, het programma dat op ons Bulletin 
Bo|ir4 d^#alt en Procomm, het communicatie- 
programma dat vooral in de MS-DOS wei^id 
bekend is# 

Kermit, zowel het protocol als het commu- 
nicatiepakket is in eerste instantie ont- 
wikkeld door Frank da Cruz ^ix Bill 
iatchings aan de Columbia Uni^ife^tMty te 
New York. Het programma is ontwikkeld om 
informatie uit te wisselen tussen een DEC 
20, een IBM 370 en diverse microcomputers. 
De eerste versies werden geprogrammeerd op 
de DEC W m mder CPM/80. Al spoedlg 
volgden versies voor IBM VM/CMS mn PC-DOS. 
Dit alles vond plaats in 1981. 

Een oor spronkeli jke versie van Kermit 
stond in de Kermit Protocol Manual. Dit 
document beschrijft behalve het Kermit 
protocol ook een communicatieprogramma 
waarbinnen dit protocol werkzaam is. In de 
oudere versies van dit document was boven- 
dien een C-source voor een Kermit-imple- 
mentatie bijgevoegd. In de huidige (6e) 
editie is deze source niet meer aan we 2 Ig 
vanwege o.a. het feit dat het niet een 
goed voorbeeld voor eventuele andere pro- 
grammeurs was. Naar aanleiding van de 
Kermit Protocol Manual zijn er enkele 
konderden'lEir^tti<'-|«|il:*^ g^a^ 
voor bijna even zoveel computers. Deze 
versies zijn niet alleen in ^C^ maar ook 
in andere talen en diverse assemblers 
geschreven. De Kermit voor DOS-65 is ont- 
wikkeld vanuit de Apple Kermit en is ge- 
schreven in aasembler. Kejmlt yoor de VAX 
la i^telubVtii in BLISS. \ 



Zo rond 1985 is er een nieuwe implement^H'" 
tie van Kermit gemaakt , G-Kermit genaamd, 
speciaal ontwikkeld om onder UNIX te 
draaien. Deze versie is zo'n beetje de 
meest uitgebreide Kermit-implementatie en 
is in 'C^ geschreven. Ook deze versie is 
onderhand geporteerd naar vele machines 
(o.a. de op 68000 gebaseerde sy3temen met 
OS9/68k all opefatfng syatreeli>i Til dit 
artikel wordt de C-Kermit versie 4E(068) 
van januari 1988 als voorbeeld gebruikt. 

Alles wat met Kermit te maken heeft is 
vrij beschikbaar. Dit omvat sources, ioeii- 
mentatle en eicecutables. Bij de versprei- 
ding van IC^rmit mag men alleen materiaal- 
kosten in rekening brengen. Verder heeft 
Kermit een officiele beheerder. Dit is: 

Kermit Distribution 

Columbia University for Computing 

Activities 

7th Floor, Watson Laboratory 
612 West 115th Street?-- 
New York, NY 10025 

Dit instituut tracht de Kermit-implementa- 
ties voor de diverse machines te verzame- 
len en coBrdineert de release van nieuwe 
versies. Voor de verspreiding van Kermit 
wordt o.a. gebruik gemaakt van Internatio- 
nale comput emet werken (BITN[EI)f Kermit is 
geen Ptibllc Domaiti, lioewel igr In ^riak^ 
tijk weinig verschillen zijn. In de sour- 
ces en manuals staan zgn. copyright noti- 
ces die ervoor dienen dat niet op een 
kwade dag het werk van deze mensen op een 
comercleele basis door derden uitgebracht 
wordt. Een van de meest opvallende regels 
in de Kermit documentatie is verder de 
volgende: 

PLEASE USE KERMIT ONLY fm fSlliiim 
HUMANE PURPOSES -~ ' 

waar lit mlj graag bij aanslult. 



Men tracht ook de Kermit documeliiltle te 
standaardiseren. Elke Kermit User Guide 
hoort te beginnen met een overzicht van de 
mogelijkheden. Hieronder staat dit over- 
zicht van UNIX Kermit, overgenomen uit de 
origin*3La APiiiiliriMiaii^ tmmMmM hm mm* 
gels). 
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Unix Kermit Capabilities At A Glance: 



Localoperation 
Remote operation 



Tmmfev text files 
ft^Bfer binary files 

File transfer interruption 
Filename collision avoidance 
Can time out 
8th-bit prefixing 
Repeat count prefixing 

Terminal emnlatttii 
Communication s^tHigf 
Transmit BREAK 

Support for dialout modems 
liafnf rame comiiiinication 

Transaction logging 

Session logging 

Debug logging 

Packet logging 

Act as server 

Talk to server 

Advanced server commands 

Local file management 

Command/ Init files 

VWe md maltiMBm lias Xiiclifsti 

Long packata 

Sliding M^tiAmm 

File attributes packets 

Raw file transmit 



Yes 

Yes (UUCP 
style) 

Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 

Yes (most 

versions) 
Yes 
Yes 

Wm 



Yes 
Yes 
Yes 
Yes 
Yes 
Yes 

Tpi 
tm 

Wo 
No 
No 



U ziet, een respectabele lijst van moge- 
lljfcheden. In #e wlf^J* f Ufagraf en zal 
ik globaal beschrijven mmt Aeze mogelijk- 
heden inhouden en waarom ze zinvol zijn. 

Local operation/Remote operation 

Kermit is bedoeld , mM, £iM-%xmMi^^^ Dlt 
betekent dat twee feTml€*'s elkaa^ de In- 
formatie toezenden. De Kermit die op het 
systeem van de gebruiker draait, meestal 
de micromputer, wordt de locale kermit ge- 
noemd* De Kermit aan de andere kant, bij- 
voorbeeld een mainframe, is de remote 
kermit. Een local-kermit geeft meestal 
status-inf ormat ie over de file transfer, 
4# p^ai^e kermit vaak niet« 

Het begrip remote Kermit is alleen van 
belang bij file-transfer. Daar Kermit 
echter een communicatiepakket is, kan men 
een local Kermit ook in de zogenaamde 
Connect mode bedrijven. Dit houdt in, dat 
het locale systeem een terminal vormt van 
het andere systeem* Men kan dan dus op het 
remote systeem werken alsof men aan een 
terminal op dit systeem werkt. Bij de 
bespreking van de terminal emulatie kom ik 



hier nog op terug« 
Login scripts 

Op grotere systemen en Bulletin Boards 
moet men zich meestal middels een kort 
vraag- en antwoordspel aan het systeem 
bekend maken,zoals bijvoorbeeld op ons 
Bulletin Board: 



irOORMM: 

ACHTERNAAM: 

GERT VAN.OPBROEK ? 



gert 

van.opbroek 

y 



Bij een aantal ttetiftlt-iiftplementatf^ Itan 

men een dergelijke dialoog inprogramtDieren 
zodat het inloggen automatisch gaatt 

Transfer text /binary files 

Tekst- files kunnen alle Kermit-implemen^ 
taties uitwisselen, daar zijn ze tenslotte 
voor gemaakt. Binaire files kunnen de 
meeste Kermits ook uitwisselen. Hiermee 
kan men bijvoorbeeld complete executables 
verzenden. Natuurlijk heef t het uitwisse- 
len van executables alleen' w£m itll ie 
systemen hetzelf de zijn. Ook ge coiap r iitteer- 
de .ARC files zijn binair. 

Voor het uitwisselen van files wordt door 
Kermit gebruik gemaakt van het door Getl 
Klein beschreven Kermit protocol* Dit 
protocol is zodanig van opzet, dat de twee 
Kermits aan het begin van de transfer 
afspreken welke van de hier besproken 
faciliteiten wel en welke niet gebruikt 
zullen worden. De bediener van de local 
Kermit kan hoogstens zijn voorkeur kenbaar 
maken doch als de remote kermit de gekozen 
faciliteit niet ondersteunt, dan wordt 
deze ook niet gebruikt. 

Wildcard send 

Dit houdt in dat men meerdere files die 
verzonden moeten worden aan kan geven door 
middel van zogenaamde wildcards. Een wild- 
card is een teken dat in de plaats staat 
vogr m0m piitt' tek^ of andere tekens* Een 
pair tNS0t$eelieiil " 

A*.* De ster betekent elk teken of 

reeks van tekens. In dit geval 
dus alle files die met A begin- 
nen. 

ABC??. PAS Het vraagteken kan vervangen 
worden door elk teken doch door 
slechts een teken. In dit geval 
Ann adtie .PAS files van vijf 
letters, beginnend met ABC. 
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File txaamlmr interrupttmi 

Men kan het overzenden van files onderbre^ 
ken en op een nette manier afsluiteiit 



flleaaiie collission motdsmce 

Onder Kermit wordt de filenaam meegezon- 
den. In aormfle gevallen wordt de file 
oniet dezel^d^ fi^am op het andere systeem 
opgeslagen voor zover de filenaam voldoet 
aan de conventies van het operating 
systeem. Men kan overigens aangeven dat de 
file een andere naam moet krijgen. Nu kan 
het dus gebeuren dat er een file overge- 
St#ur^ wordt die dezelf de naam heef t als 
een andere file die al op het andere sy- 
steem aanwezig is. Kermit zorgt er dan 
voor dat de file een andere naam krijgt 
zodat de reeds aaaweEif|@i- f|.lpt,^iet pVBX- 
schreven wordt. 

Can time out 

Als er op een of andere manier lets fout 
gaat bij de f ilet ransf er , is het handig 
als het ajniteem niet tot Sint Juttemls 
blijft wachten maar probeert de uitwisse- 
ling weer op gang te brengen en als dit 
niet gaat, stopt met een f out boodschap. 
Deze optie is in vrijwel alle Kermits 
aanwezig waarbij, bij de meer geavanceerde 
implement at ies, de maximale wachttijd 
(time out) vaak instelbaar is. 

8th-bit prefixing. Repeat Count prefixing 

Zoals in het artikel van Gert Klein als is 
aangegeven, kunnen binaire files ook met 
het Kermit-protocol overgestuurd wotd^i^^^^ 
Het protocol schrijft voor, dat' alle 
stuurtekens door middel van een zogenaamde 
prefix aangegeven worden. cntrl-A (SOH) 
wordt aangegeven met #A. Ingeval van data 
waarbij het hoogste bit geset is, zijn er 
twee mogelijkheden: 1) Er wordt uitslul- 
tend 7-bits data overgestuurd en 2) er 
wordt 8-bits data overgestuurd. Als er 7- 
blts data overgestuurd wordt, dan wordt er 
door middel van een prefix (in dit geval 
de &) aangegeven dat in het databyte btl; 1 
geset moet worden. ^ , , 

Repeat Count prefixing kan gebruikt worden 
om meerdere van dezelfde tekens achter 
elkaar op emt hmmtm mmiiiex aan te geven. 
Men kan op deze manier tot maximaal 94 v^ma 
dezelfde tekens in 3 tekens aangeveiir i# 
onderstaande voorbee Idem , feomen uit de 
Kermit Protocol Manual: 



^ betekent CMrl 

^ betekent Sm bit geset 

^C*» M ASCII 40 • 32 « 8 



Tekeii 


Representatie 


Met herhaling 




met Prefix(e») 


yopr .8 tejfceas 


A (41) 


A 


*»'(A 


-A (01) 


#A 




'A (CI) 


&A 


«V(&A 


'"A (81) 


&#A 


<\/(&#A 


Ka& ineit. 


over de liin 8 bit data sturen. 


dan zlext 


de bovenstaande 


voorbeelden er 


als volgt 


uit : 






Representatie 


Met herhaling 


. ' ' 


met Prefix(es) 


voor 8 tekens 


A (41) 


A 


*v(A 


-A (01) 


#A 


*'(#A 


'A (CI) 


'A 


'K'A : 


'"A (81) 


#'A 


'*'(#' A 



Noot ' is dus geen prefix; dit betekent 
alleen dat een byte met het 8e bit 

geset overgestuurd wordt « 

Wordt er in de file een prefix-teken ver- 
stuurd, dan wordt dit teken voor^. g/e^^m 
door het # teken* Dus: 



Teken : 

# 
& 



Vestuurd: 



ujl 

Het verstuurde teken kan dan nog vooraf 

worden gegeaan door de 8th-bit prefix en 

de repeat count prefix. 

iOteirii^e Block Clieelts 

Alle Kermit-implementaties onder steunen op 
sSi^i^ minst de meest eenvoudige vorm van 
Sld^fe Check. Deze vorm is in het artikel 
van Gert Klein besproken. Een aantal 
Kermit-implementaties kennen verder nog 
twee andere vormen. De eerste is gebaseerd 
op een twaalf bits checksum; de tweede op 
lie 16-bit CRC-CCITT die ook in de ^mmm. 
netwerken gebruikt wordt • In het algemeen 
voldoet de eenvoudige vorm uitstekend. 
Heeft men echter binaire files die over 
slechte verbindingen verstuurd worden, dan 
is een alternatieve block check mogelijk 
iets beter, omdat eventuele fouten dan 
beter te detecteren zijn. 

Terminal emulation 



In een voorgaande paragraaf is al aangege- 
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C c? in m XX t%x& m i m 



Unix Kermit Capabilities At A Glance: 

Localoperat i#| Ye s 

Remote operatioti Yes 

togim Bmi^m Yes (UUCP 

style) 

Transfer text files Yes 

Trajisfer bin^irir files Yes 

WiMetri nmi:' Yes 

File transfer interruption Yes 

Filename collision avoidance Yes 

Can time out Yes 

8th-bit prefixing Yes 

Repeat count prefixing Yes 

Alternate block checks Yes 

Terminal emalatlon Yes 
C ommun i c at i Yes 

Transmit BREM Yes (most 

versions) 

^l^pmt for dialout modems Yes 

iB*t mainframe coimunication Yes 

Transaction logging Yes 

Session logging Yes 

Debug logging Yes 

Packet logging Yes 

Act as server Yes 

Talk to server Yes 

Advanced server commands Yes 

Local file management Yes 

Command/ Init files Yes 
UUCP and multiuser IMm locating Yes 

Long packets Yes 

Sliding windows No 

File attributes packets No 

Raw file transmit No 

U ziet, een respectabele lijst van moge- 
lijfctieden# In de volgeiide paragraf en zal 

ik globaal beschrijven wat deze mogelijk- 
heden inhouden en waarom ze zinvol zijn. 

Local operation/Remote operation 

Kermit is bedoeld vaajf. i tie-transfer. Dit 
betekent dat twee Ketrmft^s elkaar de In- 
formatie toezenden. De Kermit die op het 
systeem van de gebruiker draait, meestal 
de micromputer, wordt de locale kermit ge- 
noemd. De Kermit aan de andere kant, bij- 
voorbeeld een mainframe, is de remote 
kermit. Een local-kermit geeft meestal 
status-inf ormatie over de file transfer, 
Ipus^e kermit vaak niet* 

Het begrip remote Kermit is alleen van 
belang bij file-transfer. Daar Kermit 
echter een communicatiepakket is, kan men 
een local Kermit ook in de zogenaamde 
Connect mode bedrijven. Dit houdt in, dat 
het locale systeem een terminal vormt van 
het andere systeem. Men kan dan dus op het 
remote systeem werken alsof men aan een 
terminal op dit systeem werkt. Bij de 
bespreking van de terminal emulatie kom ik 



hier nog op terug. 
liQgiii scripts 

Op grotere systemen en Bulletin Boards 
moet men zich meestal middels een kort 
vraag- en antwoordspel aan het systeem 
bekend maken,zoals bijvoorbeeld op ons 
Bulletin Board: 



VOORNAAM: 
ACHTERNAAM: 
GERT VAN.OPBROEK 



gert 

van.opbroek 

y 

»; m m f • «•[«•■ 4 



Bij een aantal f eifinit--lWpleTii^m^a^^ feian 
men een dergelijke dialoog inprogrammeren 
zodat het inloggen automatisch gaat. 

Transfer text /binary files 

Tekst- files kunnen alle Kermit-implemen- 
taties uitwisselen, daar zijn ze tenslotte 
voor gemaakt. Binaire files kunnen de 
meeste Kermits ook uitwisselen. Hiermee 
kan men bijvoorbeeld complete executables 
verzenden. Natuurlijk heef t het uitwiase^ 
len van executables alleen iiin ifcls ie 
systemen hetzelf de zijn. Ook ge compr Imeer- 
de .ARC files zijn binair. 

Voor het uitwisselen van files wordt door 
Kermit gebruik gemaakt van het door Gert 

Klein beschreven Kermit protocol. Dit 
protocol is zodanig van opzet, dat de twee 
Kermits aan het begin van de transfer 
afspreken welke van de hier besproken 
faciliteiten wel en welke niet gebruikt 
zullen worden. De bediener van de local 
Kermit kan hoogstens zijn voorfcettr kenbaar 
maken doch als de remote kermit de gekozen 
faciliteit niet ondersteunt, dan wordt 
dli;s#i' looii' Met 

Wildcard sei^ 

Dit houdt in dat men meerdere files die 
verzonden moeten worden aan kan geven door 
middel van zogenaamde wildcards. Een wild- 
card is een teken dat in de plaats staat 
voor een ander t^eken of andere tekens. Een 
paar voorbeelden: 

A*.* De ster betekent elk teken of 

reeks van tekens. In dit geval 
dus alle files die met A begin- 
nen. 

ABC??. PAS Het vraagteken kan vervangen 
worden door elk teken doch door 
slechts een teken. In dit geval 
dus alle .PAS files van vijf 
letters, beginnend met ABC. 
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File transfer interraptim 

Men kan het overzenden van files ondetbre- 
ken €in op een nette manier afsluiten* 



Fileiiase colllssAiist inroldance 

Onder Kermit wordt de filenaam meegezon- 
den. Ixi noTiaMe gevallen wordt de file 
0itt<fi€r dezelftffe 11^ op het andere systeem 
opgeslagen voor zover de filenaam voldoet 
aan de conventies van het operating 
systeem. Men kan overigens aangeven dat de 
file een andere naam meet krijgen, Nu kan 
hmt dus gebeuren dat er een file overge- 
stuurd wordt die dezelf de naam heeft als 
een andere file die al op het andere sy- 
steem aanwezig is. Kermit zorgt er dan 
voor dat de file een andere naam krijgt 
zodat de reeds mmm^^lg^ f ile miet mm:- 
schreven wordt. 

Can time out . ^ 

Als er op een of andere manier iets font 
gaat bij de f ilet ransf er , is het handig 
als het syisteem niet tot Sint Juttemis 
blijft wachten maar probeert de uitwisse- 
ling weer op gang te brengen en als dit 
niet gaat, stopt met een f out boodschap. 
Deze optie is in vrijwel alle Kermits 
aanwezig waarbij, bij de meer geavanceerde 
implementaties, de maximale wachttijd 
(time out) vaak instelbaar is. 

8th-bit prefixing. Repeat Count prefixing 

Zoals in het artikel van Gert Klein als is 
aangegeven, kunnen binaire files ook i&et 
het Kermit-protocol overgestuurd worden. 
Het protocol schrijft voor, dat alle 
stuurtekens door middel van een zogenaamde 
prefix aangegeven worden. cntrl-A (SOH) 
wordt aangegeven met #A. Ingeval van data 
waarbij het hoogste bit geset is, zijn er 
twee mogelijkheden: 1) Er wordt uitslul- 
tend 7-bits data overgestuurd en 2) er 
wordt 8-bits data overgestuurd. Als er 7- 
bits data overgestuurd wordt, dan wordt er 
door middel van een prefix (in dit geval 
de &) aangegeven dat in het databyte bit B 
geset moet wor<l^« 

Repeat Count prefixing kan gebruikt worden 
om meerdere van dezelfde tekens achter 
eltemi^ #p eeti korte manier aan te geven. 
Hen kan op deze manier tot maximaal 94 vma 
dezelfde tekens in 3 tekens aangeven* De 
onderstaande voorbeelden komen uit de 
Kermit Protocol Manual: 



^ betekent Qntvl 
' betekent Se b±t geset 
Ss ASCII 40 - 32 « 8 

fjehm. Representatle Met herhaling 
met Prefix(es) yoor 8 tekens 



A (41) A ^(A 

'^A (01) #A ^(//A 

"A (CI) &A M&A 

'"A (81) &#A A/(&#A 



Kan men over de lijn 8 bit data sturen, 
dan zien de bovenstaande voorbeelden er 
als volgt uit: 

Teken Representatle Met herhaling 
met Prefix (es) voor 8 tekens 



A (41) A V(A 

^A (01) //A ^(#A 

-A (CI) "A ^'A 

'^A (81) rk ^{rk 



Noot ' is dus geen prefix; dit betekent 
alleen dat er een byte met het 8e bit 
geset overgestuurd wordt • 

lf#tit er in de file een prefix- teken ver- 
stunrdt dan wordt dit teken VQor^f gngmn 
door bet # teken . Dus: 

Teken: Vestuurd: 

it m 

m- . 

ujl 

Het verstuurde teken kan dan nog vooraf 
worden gegeaan door de 8th-bit prefix en 
4e repeat count prefix. 

AltexiMBite Block Ctedks 

Alle Kermit-implementaties onder steunen op 
minst de meest eenvoudige vorm van 
llddk Check . Deze vorm is in het artikel 
van Gert Klein besproken. Een aantal 
Kermit-implementaties kennen verder nog 
twee andere vormen. De eerste is gebaseerd 
op een twaalf bits checksum; de tweede op 
de 16-bit CRC-CCITT die ook in de meeste 
netwerken gebruikt wordt. In het algemeen 
voldoet de eenvoudige vorm uitstekend. 
Heeft men echter binaire files die over 
slechte verbindingen verstuurd worden, dan 
is een alternatieve block check mogelijk 
iets beter , omdat eventuele f put^n 4an 
beter te detect eren zijn* 

Terminal emulation 

In een voorgaande paragraaf is al aangege- 
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C o m in \a rl i C2 « %^ 



"wm 4Bt me^n hat Xexmit-programma kan ge- 
VtvAMm m mt zmiCim met eeti teirffiltial op 
een remote systeem te kunnen werken. Om 
dit goed te kunnen doen, bevatten de mees- 
te Kerinits een een of meer terminal emula- 
ties* lu bijna alle gevallen is dat min- 
mmm 116 ffS2 emulatle. Dit beteketit 
dat het voor het remote systeem net is 
alsof er een terminal van het geemuleerde 
type een verbinding heef t • Dit uiteraard 
niet tijdens de file-transfer maar in de 
sogenaaiade Coamect mode • 

CQmnmlcatlon Settings, tltsmMmlt Break 

Bij een groot aantal Kermit-programma's is 
het mogelijk de parameters voor de commu- 
nicatie in te stellen (Baud- rate, parity, 
word^ieiigilL •#«)• Verder zijn er een aan- 
tal imp Igp^t #t 1 e s waarmee een BREAK- 
signaal verzonden kan worden. Dit signaal 
kan voor het remote-systeem bijvoorbeeld 
betekenen dat het sturen van tekens afge- 
broken moet worden (de Junior reageert 
bijvoorbeeld op dez# mat^iet op eeii br^ak) • 

Zoals bekend , zijn er een groot aantal 
mpdem^ die zelf een teief oonnuiamer kunnen 
kiezen m H^m^ maar data kunnen 

schakelen als verbinding verkregen 

wordt. De nieuWere Ke rmi t- implement at ies 
ondersteunen deze faciliteit voor een 
aantal modems. Men kan dan dus simpelweg 
hBt cona&ando DIAL 053,303902 opgeven. 

IBM mainframe ccnmnmlcatlon 

Het communiceren met IBM-mainframes vraagt 
|^fcU# in spanning voor het bedienen van het 
coraaninlcatlekanaal (Half Duplex bijvoor- 
beeld) ♦ mn Bmtal Kermit-versies zijn in 
mmt- inspanni^ tm 

Transactlcm, Seralon^ / lelpg md Packet 
logging 

Kermit is in staat informatie over een 
aantal zaken in een file weg te schrijven, 
De hoeveelheid informatie is afhankelijk 
van de soort logging die geactiveerd 
dit • Met #t$&ioii logging kan men alles 
wat in connect-toestand ( t erminal-emula- 
tie) verzonden en ontvangen wordt vastleg^ 
gen. Op deze manier haal ik bijvoorbeeld 
informatie van mijn Junior systeem zonder 
Kermit over naar mijn andere systemen. Ik 
start de session logging en geef een 
"l.ist" eoinmando op de Junl or • Na het lis- 
ten van de file, sluit ik de logfile, haal 
de overbodige informatie er met de editor 
uit en zie daar, ik heb de (tekst-) file 
op mijn andere systeem. Debug logging 



geef t een overzicht van alle toestanden 
die kermit doormaakt tijdens het draaien 
van het programma. Vooral bij file-trans- 
fer is het interessant dit eens te bestu- 
deren» Het is vooral bedoeld om een nieuwe 
Kermit-implementatie snel foutvrij te 
maken* 

Act as Server 9 Talk to Server 

De meer geavanceerde versies van Kermit 
kennen de zogenaamde Server commando's . 
Deze zijn vooral bedoeld voor file trans- 
fer. Een van de twee i^etiEits » mtesigl de 
remote Kermit, fungeert dan als server. Op 
de locale Kermit kan men dan ingeven wat 
men van de server verwacht; het opsturen 
van files (uploaden) of het ontvangen van 
files (downloaden) . De locale Kermit geef t 
deze opdr^cht dan door aan sepv^r die 
het commando uitvoert. Meij feo^ft dati 
slechts een van de twee sy;^fliin te ver- 
tellen wat men wil. 

Heef t men geen server-mode i 19^^ men 

op het zendende systeem een Send** cmmBmr 
do ingeven en op het ontvangende systeem 
een "Receive" commando • De meeste Kermit- 
implementatie s kunnen met een server com- 
municeren, een groot aantal (o.a. DOS-65 
Kermit) kunnen ook als server optreden. 
Als gebruiker van Kermit vindt ik dit , bet 
sterkste punt van het pakket. 

Advanced server functions 

Qok in de servers kent men eenvoudige en 
WB€r geavanceerde systemen. De eenvoudige 
systemen kunnen alleen files zenden en 
ontvangen, de meer geavanceerde systemen 
kunnen bovendien onder andere directorie- 
listings door sturen. Er bestaan implemen- 
t at ies waarbij mm aan de server alle 
commando's van het mft&tJiMg systeem waar- 
onder de server dtaait kan geven. 

Local file management 

iiBiten de Kermit s met deze optie kan men 
van directory wisselen, tiK directory 

opvragen files verwijderen etct monger alt 
het Kermit programma te gaan. 

Counaad/Init files 

Met deze optie kunnen commando's aani Ker- 
mit in een file samengevoegd worden en 
door middel van een simpele aanroep of 
automatisch bij het starten uitgevoerd 
worden • Met een dergelijke file en het 
script commando kan men bijvoorbeeld: 

- De communicatiepoort initialiseren 

D.m.v. DIAL het nummer van een BBS 
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O^ttgiat iintr Connect 
WKSe laid nultluser line Icnddtng 



^tte li bedoeld om op een UNIX sy- 
steem ervoor te zorgen dat niet meerdere 
gebruikers gelijktijdig via dezelfde conir 

municatielijn communiciet^a* (WCi * 
to Unix Copy program) • 



De meeste Kermits gebruiken in de file- 
transfer een packet-lengte van maximaal 95 
bytes. Er zijn implementat ies waarbij dit 
uitgebreid kan worden tot bijvoorbeeld 
1024 bytes. Hoe latt^er het packet, 
klainer het deel overhead voor de stuurte- 
keiis aan het begin en het eind van het 
packet en hoe minder vaak er gewacht hoeft 
te worden op de bevestiging. Lange packets 
hebben echter als nadeel dat bij een ge- 
constaeE^pi ll^wt B^a SUtef tekens opi^mw 
over mbet littrreti * ' 

Sliding windows 

Bij de communicatie via satellieten of met 
het BBS op Mars, duurt het enige tijd 

voordat na het verzenden van het laatste 
teken van een packet, de bevestiging hier- 
op binnenkomt . De informatie wordt name- 
lijk met een snelheid van 300.000 km per 
seconde getransporteerd . Naar Mars kan dit 
40 jaiiwtm dn^cen. Cm dtt ti^ mimmm^mt is 
M Hit te¥felt-prot ocol t^otil*h " dat er 
tneerdere packets onderweg gestuurd worden 
alvorens er op de bevesting van de eerste 
gewacht wordt. In normale omstandighedem 
is deze uitbreiding niet echt van belang* 

File attrilmte pmdketn 

Op de meeste systemen wordt bijgehouden 
van wie een file is en wat anderen met 
deze file mogen doen. Bovendien wordt 
meestal de datum en tijd van het moment 
waarop de file aangemaakt is bewaard. Er 
zijn Kermit-implementaties die in staat 
zijn deze informatie ook op te sturen en 
weer te ve^wexken In de ontvangen files. 

Comiand Macro'^s 



Boor middel van SET IBM kan mm dan in een 
klap de g^tit6e#dl!i #I^J|^^^iii^^Uk@n« 

Raw file transmit 

Bij Raw file transmit, kan men files ont- 
vangen van systeiBen die geen Kemtft ^Ml^ 
ben. In de praktijk betekent dit dat mm 
op het locale systeem een file opent en 
alle informatie die binnenkomt daar in- 
schrijft. Op het remote systeem doet men 
dan een List . Op deze manier wordt er dus 
geen enkele controle op het al dan niet 
goed mtvangen yan tte tnJomttis uitge- 
voerd • 



Natuurllll' M m m^t Kermlt nog aanzien- 
lijk m&mt te vertellen. Na de mogelijkhe- 
den Is een commando-overzicht van een 

gemiddelde Kermit-implementatie een moge- 
lijk vervolg. Misschien dat lets derge- 
lijks in de toekomst ook nog eens ge- 
plaatst gaat worden • Vooralsnog wil ±k h&t 
hierbij even laten. Ik hoop dat dnidelijk 
geworden is dat, ondanks het feit dat 
Kermit vrij beschikbaar is, dit toch een 
programma is dat prof essionele allures 
heef t . Wil men meer informatie j dan zijn 
er een tweet al f^li€#t flit i 

1) Frank da Cruz: KERMIT PRGTOCOI 
MANUAL, Sixth edition June 1986 

2) Frank da Cruz, Editor: KERMIT USER 
GUIDE, Sixth edtion. Revision 2, May 
26 1986 

Verder natuurlijk de user guide voor uw 
eigen systeem o.a. de KERMIT USER GUIDE 
voor DOS-65 of de UNIX KERMIT USER GUIDE 
in de vei!«l^ v^ januari 1988. Al deze 
doctmgnt^i% ii^^ ^a de redact ie 

verkregen worden. Hebt u een systeem en 
wilt u wet en of daar een Kermit voor be- 
schikbaar is , dan kunt u het beste contact 
opnemen met Gert Klein. 



Met een Command Macro kan men nieuwe com- 
mando's definieren die samengesteld zijn 
ult andere commando's . Op deze manier kan 
mm dus de commando's voor Kermit tij de- 
li jk MlirbtiBjJtei. Voorbeeld : 



DEFINE tm ^ 



fARITY ODD, 
HANDSHAKE XON 



HALF, \ 
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Othello 

Het onderstaande programma is reeds enige 
jaren oud. Ik denk toch dat het programma 
nog steeds interessant kan zijn. Aanlei- 
ding tot het publiceren van het programma 
vormde het volgende bericht uit de Rijn en 
Gouwe van zaterdag 16 juli 1988: 

Olyttplade voor computer ga»es 

Volgend jaar augustus wordt in het Londen- 
1# Park Hotel werelds eerste Olympiade 
voot spelende, ktinstmatlg intelligente 
computers gehouden. Organisator is de 
bekende schaakgrootmeester en programmeur 
David Levy. De wedstrijden zijn alleen 
toegankelijk voor computers of spelma- 
eMms op basis van microprocessors* 
©nderdelen van de Olympiade kunnen alle 
door machines tegen machines te spelen 
strategische spelen zijn: schaken, dammen, 
backgammon, bridge, go moku, scrabble, 
mancala, cribbage, Othello, stratego. Go 
ban, Mj^ Jong 9 en^ovoorts. Ook zullen twee 
nieuwe stTategische computergames worden 
geSntroduceerd: het Japanse Shogi en het 
Chinese Xianggi. 



Ummmn sil.Jm van deelneioli^ uitgesloten* Ze 
tBogen ftoogtrlt dienst Amn slLb tomt^mmmt^ 
of als robot voor het invoeren van de 
zetten. De arbitrage zal aan mensen worden 
opgedragen. 

Tijdens de Londense Computer Olympiade 
wofif een groot symposium gehouden oirwr 
kunstmatige intelligentie en de toekomst 
van de schaak- en spelcomputer» 

In HCC-nieuwsbrief nr. 61 stond een 
programma voor het spel Othello afgedrukt« 
Omdat ik in die tijd experlmenteerde aet 
Comal, lieb ik dit prograittma g^coiiv^fteeM 
naar de door de club verspreide COMAL.KGN. 
Deze versie van het programma liep op 
Junior met Elekt erminal. Door enkele 
kleine modificaties kan het programma ook 
lopen op ande-re systemen waarop de 
genoemde (of een andere?) Comal draait. 
Interessant er is waarschi j li jk het 
programma nogmaals te converteren naar 
of Pascal en het dan strategisch 
behoorlijk te versterken. Misschien komen 
we dan nog zo ver dat een of meer van de 
leden van de club meedoet aan de 
bovengenoemde Olympiade • • . « « m 



10 // *** OTHELLO OF REVBRSI *** 
20 // VERSIE I 10-09-84 *** 

30 // 

40 // BEWERKING VAN HET PROGRAMMA VAN S. NIJHUIS 
50 // UIT DE HCG-NIEUtfSSRIEf 61. 
60 JJ 

70 // AUTEUR: GERT VAS 

80 // BATEWEG 60 

90 // 2481 AN WOUBRUGGE 

100 // 01729-8636 

110 // 

120 // HET PRGRAMMA UERD 0STWIKKELD OP EEN SENIOR MET 
130 // ELEKTERMINAL. 
140 // 

150 // VOOR GEBRUIK MET EEN ANDERE TERMINAL MOETEN DE 
160 // PROCEDURES "CLS", "HOME" EN "C POS" AANGEPAST 
170 // WORDEN. 
180 // 

190 DIM A(§,8),CH$(2),SO(2) 

200 CH$(0) := " ";CH$(1) ;« "*^';CH$(2) 

210 EXEC: "REGELS" 
220 EXEC: "VOORBEELD" 
230 EXEC: "SPEL" 
240 VE :« 13; HO ;« 0 
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IE) IS 



250 
260 
270 
271 
280 
290 
300 
31,0 

$m 

330 
340 

350 
360 
370 
380 
390 
AOO 
410 
420 
430 
44# 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
f» 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 



:= - 1 TO 
<mR$ (11); 



15 - VE 



GEEF EEN KOP 



EXEC: "C P0S",VE,H0 

pRi NT "finroE . . . , . .... 

END. 
// 

PROC "CLS" // CLEAR-SGREEN Of WLmOBmaM. 

POKE 6745,200 

PRINT CHR$ (li)j 

POKE 6745,2 
HIDPROC 
// 

PROC "HOME" // CURSOR HOME ON ELEKTERMINAL 

POKE 6745,200 

PRINT CHR$ (28); 

POKE 6745,2 
ENDPROC 
// ■ 

PROC "c pos",vEjS0 // MWE ewti 10 f©smos fl*» 

EXEC: "^OME" ^ 
PRINT 

IF HO > 0 THEN 
^ OD : * 1 IQ HO 

PRINT Gffil$(»:):|- 
ENDFOR , • ■ 

ENDIF 
FOR OF 

PRINT 
ENDFOR 
ENDPROC 
// 

PROC "KOP" // 
EXEC: "CLS" 

PRINT SPC( 18);"*** OTHELLO OF REVERSI ***" 

mim sfQ( 18) 

ENDPROG 

// 

PROC "VELD" 
EXEC: "KOP" 

PRINT SPC( 10);"1 2 S * § # f 

PRINT SPC( 10);"++ ++++++++++++ •*^+' 

FOR I := 1 TO 8 
PRINT SPC( 7);I;"+ " 

ENDFOR 
ENDPROC 
// 

FROG "ZET",RY,KO,SI // VOER ZET:RY,KO UIT VOOR SPELER SI 

A(RY,K0) := SI 

HO := 7 + 3 * KO;VE := 3 + RY 

EXEC: "C POS",VE,HO 

PRINT CH5'(SI);CH$(SI); 
ENDPRGC 

// 

PROC "TEL" // TEL DE STEENVERDELING EN DRUK KM M 
FOR I := 0 TO 2 
SO(I) := 0 
ENDFOR 

FOR 1 := 1 TO 8 
fOR J !« 1 fCf 8 
S0(A(I,J)) := SO(A(I,J)) + 1 

ENDFOR 
ENDFOR 
HO := 40; VE := 4 

EXEC: "C pos",?i,ao 

PRINT "S7ELER 1 (";G1$(1);") :";S0(1);" "; 

HO := 40;VE := 5 



// 



TEKEN HET SPEELVELD 
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880 EXEC: *'C POS",VE,HO 

890 PRINT "SimEl 2 (";CH$<2);") :";SG(2);" 

900 ENDPROC 

920 PROC "INIT'' 

930 FOR I := 1 TO 8 

940 FOR J := 1 TO 8 

950 A(I,J) := 0 

960 ENDFOR 

970 MmMQR 

f 80 EXEC: "VELD" 

990 RY := 4;K0 := 4;SI := 1 

1000 EXEC: "ZET" ,RY ,K0 , SI 

1010 RY := 5;K0 := 5 

1020 EXEC : "ZET" ,RY ,K0 , SI 

mW KO t« 4; SI t« 2 

1040 EXEC: "ZET" ,RY,KO,SI 

1050 RY := 4;K0 := 5 

1060 EXEC: "ZET" ,RY|KQ,SI 

1070 EXEC: "TEL" 

1080 ENDPROe 

1090 // 

1100 PROC "TESTBUUR",RY,KO,TY,RE 

1110 // TEST OP DE AANWEZIGHEID VAN mSMM VAN TYPE Tt 

1120 // HET RESULTAAT KOMT IN RE 

1130 RE := 0;I := RY - 2 

1140 WHILE (I < RY + 1) AND (RE = 0) DO: 

II SO 1 t*s I -f 1* J 1^ — 2 

1160 WHILE (j'< KO 4^ 1) JdSD (M ^ 0) DCs 

1170 J := J + 1 

1180 IF (I > 0) AND (I < 9) AND (J > 0) AND (J < 9) THEN 

1190 IF A(I,J) = TY THEN 

1200 RE := 1 

1210 ENDIF 

1220 ENDIF 

1230 ENDWHILE 

1240 ENDWHILE 

1250 ENDPROC // TESTIUDR 

1260 // 

1270 PtoC ♦*TSLBtIlIR" , XX , YY , TT , G , T 

1280 // TELT HET AANTAL TE PAKKEN STENEN VAN KLEUR G 

1290 // INDIEN T=0 WORDEN DE ZETTEN UITGEVOERD. 

1300 TT := 0;TY := 3 - G 

1310 FOR SX ;« - 1 TO 1 

13M fit St m ^ 1 ft I 

1330 IF (SX < > 0) OR (SY < > 0) THEN 

1340 I := XX;J := YY 

1350 IK := I + SX * JK := J + SY 

1360 IF* (IK > 0) AND (IK < 9) AND (JK > 0) AND (JK < 9) THEN 

1370 REPEAT 

1380 I J- I + SX;J := J + SY 

1390 IK :« I * SX;JK J * SY 

1400 UNTIL (IK < 1) OR (IK > 8) OR (JK < I) OR (JE > 8) OR (A(I,J) < > TY) 

1410 ENDIF 

1420 IF (A(I,J) = G) AND (( ABS (I - XX) > 1) OR ( ABS (J - YY) > 1)) TUN 

1430 I := I - SX;J := J - SY 

14*0 WHILE (I < > XX) OR (J < > YY) DO: 

1450 TT := TT + 1 

1460 IF T = 0 THEN 

1470 EXEC: "ZET",I,J,G 

1480 ENDIF 

1490 I := I - SX;J :- J - SY 

1500 ENDWHILE 

1510 ENDIF 
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T «k J. ihk 3 o f 1=. w «9i : 



1520 
1530 
1540 

mo 

1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 

iim 

1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 



// TELBUUR 



2080 

2090 
2100 
2110 
2120 
2130 
2140 
2150 



END IF 
ENDFOR 
ENDFOR 
ENDPROC 

// 

PROC "REGELS" 
// GEEFT (INDIEN NODIG) DE SPELREGELS. 
EXEC: "KOP" 
HO }<• OjfE :» 12 
EXEC: "C P0S",VE,H0 
PRINT "V/TLT U SPELREGELS? (N/J)"; 
REPEAT 
PRINT "?"; 
GET A$ 

imih (A$ = "N") OR (A$ = "J") 
EXIC: "e POS",VE,HO 
PRINT •S]PC( 60); 
IF A$ = "J" THEN 
VE := 3;H0 := 0 
EXEC: "C POS",VE,HO 

"HET GAAT ER BIJ DIT SPEL OM DE MEESTE VELDEN TE BEZETTEN." 
"EEN VELD WORDT BEZET DOOR ER EEN 'STEEN' OP TE PLAATSEN," 
"ZODANIG DAT ER EEN OF MEERDERE VELDEN VAN DE TEGENPARTIJ" 
"WORDEN INGESLOTEN. DIT KAN ZOWEL HORIZONTAAL ALS VERTICAAL" 
"EN DIAGONAAL. ER ZIJN 64 VELDEN EN HET SPEL STOPT ALS AU-E" 
"VELDEN BEZET ZIJN, OF ALS I tm DE if^HJSM il« fllli 
"IN BEZIT HEEFT." 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GET A$ 
END IF 
ENDPROC 
// 

PROC "HULP",S1$,S2$,X,Y,G 

// HULPROUTINE VOOR VOORBEELDEN 
VE := 12;H0 := 0 
EXEC: "C P0S",VE,H0 
"?PC( 60) 
SPC( 60) 
SPC( 60) 

> 0) AND (Y > 0) im m > 



"U SPEELT MET DE ";CH$(1);" EN DE COMPUTER MET DE ";CH$(2) ;" ." 

"ALS U GEEN VELD KUNT INSLUITEN, MOET U EEN BITOC mWMM^ 
"DOOR 9,9 TE ZETTEN." 
"«< &m lai RETURN»>"; 



"ZET",X,Y,G 
"TELBUW* jXi^r,*!:!*©,! 
"TEL" 



PRINT 
PRINT 
PRINT 

IF <X > 0) and' (Y > 0) AND (G > 0) 

T := 0 
EXEC: 
EXEC: 
EXEC: 
ENDIF 
HO := 0;VE := 12 
EXEC: "C P0S",VE,H0 
PRINT 81"^ 
PRINT S2$ 

PRINT "«< GEEF EEN RETURN »>" ; 
GET A$ 
ENDPROC 

// 

PROC "VOORBEELD" 

// GEEFT (INDIEN NODIG) SPELVOORBEELDEN. 

EXEC: "KOP" 
HO :- 0;fg :- 12 

EXEC: "C P0S",VE,H0 

PRINT "WTLT U SPELVOORBEELDEN? (N/J)"; 
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2160 REPEAT 

2170 PRINT "?"; 

2180 GET A$ 

2190 UNTIL a$ = "N") OR (A$ = "J") 

mm ixicr •»e pos» ,?f ,Ho 

2210 PRINT "StCC 60); 

2220 IF A$ = "J" THEN 

2230 EXEC: "INIT" 

2240 Sl$ := "DIT IS HET VELD EN DE BEGINSTAND." 

2250 S2$ := CH$(2) + " IS AAK ZEt EN DOET: 4,3" 

2260 X := OjY := 0;G := 0 

2270 EXEC: "HULP",S1$,S2$,X,Y,G 

2280 X := 4;Y := 3;G := 2 

2290 Sl$ := "HET ANTWOORD VAN " + CH$(1) + " IS: 3,3" 

2300 S2$ := "" 

2310 EXEC ; "HULP" , S 1$ , S2$ ,X ,Y ,G 

1320 X :- 3;T t- 3;<l :« 1 

2330 Sl$ := CH$(2) + " DOET NU 3,4" 

2340 EXEC: "HULP" ,81$ ,S2$ ,X,Y,G 

2350 X := 3;Y := 4;G := 2 

2360 Sl$ := CH$(1) + " DOET NU: 3 ,5.., 

2370 I^C: "HULP»,Slf,S2f ,X,¥ie 

238>0 X I* 3'Y := 5*G := I 

2390 §1$ :«*"EN PART HIERMEE 2(!) STENEN." 

2400 S2$ := "ENZ. ENZ. TOT HET VELD VOL IS; SUCCiS." 

2410 EXEC: "HULP" ,S1$ ,S2$ ,X,Y,G 

2420 ENDIF 

2430 ENDPROC 

2440 // 

2450 PROC "INV0ER",RF 

2460 // VOER EEN ZET IN EN VOER HEM UIT 

2470 REPEAT 

2480 RF := - 1 

2490 m t» 0;VE := 12 

2500 EXEC: "C POS",VE,HO 

2510 PRINT "1TT,1=0PGEVEN; 9,9=U KUNT GEIN VELD INSLUITEN." 

2520 PRINT "GEEF VAN U ZET DE RY,KOLCW GESCHEIDEN DOOR EEN KOfflCA,"; 

2530 INPUT AN$ 

2540 I := 0 

2550 WHILE (1 < LEN (AN$)) AND ( MID$ (AN$,I,1) < > ",") DO: 

2560 I i» 1 + 1 

2570 ENDWHILE 

2580 RY := VAL ( LEFT$ (AN$,I));K0 := VAL ( RIGHT$ (AN$, LEN (AN$) - I)) 

2590 Kl := (RY > 0) AND (KO > 0) AND (RY < 9) AND (KO < 9) 

2600 Kl := Kl OR ((RY = 9) AND (KO =9)) OR ((RY = 10) AND (KO = 1)) 

2610 IF HOT (Kl) THEN 

2620 PRINT "PARDON?"; 

2630 ELSE 

2640 HO := 0;VE := 12 

2650 EXEC: "C P0S",VE,H0 

2660 PRINT ■5'PC( 60) 

2670 PRINT SPC( 60) 

2680 PRINT SPC( 60); 

2690 IF RY < 9 THEN 

2700 IF A(RY,K0) = 0 THEN 

2710 T := 0;G := 1 

2720 EXEC: "ZET" ,RY,,K0,G 

1730 EXEC: "TELBUUE*%S!r,10»ff,©,f 

2740 IF TT = 0 THEN 

2750 G := 0 

2760 EXEC: "ZET" ,RY,K0,G 

2770 ELSE 

2780 EXEC: "TEL" 

2790 RF :» 0 
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2800 ENDIF 

2810 liroiF 

2820 ELSE 

2830 IF RY = 10 THEN 

2840 RF := 2 

2850 ELSE 

2860 RF := 1 

2870 ENDIF 

2880 ENDIF 

2890 ENDIF 

2900 IF RF < 0 THEN 

2910 HO := 0;VE := 14 

2920 EXEC: "C P0S",VE,H0 

2930 mim ZET WAS oramiie; OPNIIUW.**; 

2940 ENDIF 

2950 UNTIL RF > =0 

2960 ENDPROC 

2970 // 

2980 PROC "NIVEAU2",RY,K0,TT,Tl^T2,VEvHO,fL 

2990 // 



3000 


KL : 




(RY 


- 1 


) mm 


( KO 2) 


AND 


(A(l,l) 


< > 2) 


3010 


KL 




KL 


OR 


(RY 




1) 


AND 


(KO = 


7) 


AND 


(A(l,8) < 


3020 


KL 




KL 


OR 


(RY 




2) 


AND 


((KO = 


1) 


OR 


(KO = 2)) 


3030 


KL 




KL 


OR 


(RY 




2) 


AND 


((KO = 


7) 


OR 


(KO = 8)) 


3040 


KL ! 




KL 


OR 


(RY 




7) 


AND 


((KO = 


1) 


OR 


(KO - 2)) 


3050 


KL : 




KL 


OR 


(RY 




7) 


AND 


((KO = 


7) 


OR 


(KO - 8)) 


3060 


KL - 




KL 


OR 


(RY 




8) 


AND 


(KO = 


2) 


AND 


(A(8,l) < 


3070 


KL 




KL 


OR 


(RY 




8) 


AND 


(KO = 


7) 


AND 


(A(8,8) < 



> 2) 

AND (A(l,l) < > 2) 

AND (A(l,8) < > 2) 

AND (A(8,l) < > 2) 

AND (A(8,8) < > 2) 



> 2) 

3080 IF KL THEN 
3090 IF (TT > T2) AND (Tl < .6) THEN 
3100 Tl .5;VE RY;T2 TTjHO ;= KO 
3110 VL := 0 
3120 ENDIF 
3130 ENDIF 

3140 ENDPROC // "N1VEAU2" 

3150 // 

3160 PROC "N1VEAU3",RY»K0,TI 
3170 // 

3180 KK := NOT ((KO = 2) OR (KO = 7)) 

3190 KR := NOT ((RY = 2) OR (RY = 7)) 

3200 KL := ((RY = 1) OR (RY = 8)) AND KK 

3210 KL := KL OR ((KO = 1) OR (KO =8)) AND KR 

3220 IF KL raEN 

3230 TT := TT + 3 

3240 ENDIF 

3250 ENDPROG // "N1VIAU3" 

3260 // 

3270 PROC "NIVEAU4",RY,K0,TT 
3280 // 

3290 KK := (KO = 2) 01 (KO « 7) OR (KO * 1) OR (KO - 8) 

3300 KR := (RY = 2) OR (RY = 7) OR (RY = 1) OR (RY - li) 

3310 KL := ((RY = 2) OR (RY = 7)) AND NOT KK 

3320 KL := KL OR ((KO » 2) OR (KO « 7)) AND NOT KR 

3330 IF KL THEN 

3340 TT := TT - .4 

3350 ENDIF 

3360 ENDPROC // "N1VEAU4" 

3370 // 

3380 PROC "SPEL" 

3390 EXEC: "KOP" 

3400 HO :» OjVJB := 12 

34 1 0 EXEC : »»€ POS" , VE , HO 

3420 PRINT "(JEEF DE MOEILIJKHEIDSGRAAD , (1..4)"; 

3430 REPEAT 
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3440 GET M$ 

3450 IF (M$ < OR (M$ > "4") THEN 

3460 PRINT "?"; 

3470 ENDIF 

3480 UNTIL (M$ > "0") AND (M$ < "5") 

3490 EXEC: "INIT" 

3500 REPEAT 

3510 EXEC: "INVOER*',RF 

3520 IF RF < 2 THEN 

3530 G := 2;TY := 1;T2 := 0;T1 := 0 

3540 FOR RY := 8 TO 1 STEP - 1 

3550 FOR KO := 8 TO 1 STEP - 1 

3560 IF A(RY,KO) = 0 THEN 

3570 EXEC : " TESTBUUR" , RY , KO , TY , RE 

3580 IF RE = 1 THEN 

3590 T := 3;TT := 0 

3600 EXEC: "TELBUUR" ,RY ,K0 ,TT ,G ,T 

3610 IF TT < > 0 THEN 

3620 VL := 1 

3630 IF M$ = "3" OR M$ = "4" THEN 

3640 EXEC: "NIVEAU3" ,RY ,K0 ,TT 

3650 ENDIF 

3660 IF (TT < = 6) AND (TT > Tl) AND (M$ < > ^'l*') THEN 

3670 IF M$ = "4" THEN 

3680 EXEC: "NIVEAU3" , RY ,K0 ,TT 

3690 ENDIF 

3700 EXEC: "N1VEAU2" ,RY,K0,TT,T1 ,T2,VE,H0,VL 

3710 ENDIF 

3720 IF (M$ < "3") AND (VL > 0) THEN 

3730 KL := (RY = 1) AND ((KO = 1) OR (KO = 8)) 

3740 KL := KL OR ((RY = 8) AND ((KO = 1) OR (KO = 8))) 

3750 IF KL THEN 

3760 TT := TT + 6 

3770 ENDIF 

3780 ENDIF 

3790 IF (VL > 0) AND (TT > Tl) THEN 

3800 Tl := TT;VE := RY;HO := KO 

3810 ENDIF 

3820 ENDIF 

3830 ENDIF 

3840 ENDIF 

3850 ENDFOR 

3860 ENDFOR 

3870 RY := VE;KO := HO;T := 0 

3880 IF Tl > 0 THEN 

3890 EXEC: "ZET" ,RY ,K0 ,G 

3900 EXEC : "TELBUUR" , RY ,K0 ,TT ,G ,T 

3910 EXEC: "TEL" 

3920 IF (S0(1) = 0) OR (S0(2) = 0) OR (S0(0) = 0) THEN 

3930 RF := 2 

3940 ENDIF 

3950 ELSE 

3960 IF RF = 1 THEN 

3970 RF := 2 

3980 ENDIF 

3990 ENDIF 

4000 ENDIF 

4010 UNTIL RF = 2 



4020 ENDPROC 
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■ flexibele in- en uitvoer van papier 



Technitron 



DATA 



Technitron Data B. V. 

Zwarteweg 110. Postbus 14, 
1430 AA Aalsmeer 
tel. 02977-22456 
telefax 02977-40968 
telex 13301 



Vestigingen in: 

BONDSREPUBLIEK DUITSLAND - DENEMARKEN - ENGELAND - FRANKRIJK - ITALIE - NOORWEGEN - VERENIGDE STATEN - ZWEDEN 



